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En mission de reconnaissance 
dans une région encore inconnue 
de l'espace, vous entrez 
soudainement dans un champ 
de mines. 


Denis PAMART 


L es mines avancent vers vous et per¬ 
cutent votre vaisseau, le DRAKE ; 
vous devez donc les détruire avant qu'el¬ 
les ne vous atteignent à l’aide de votre 
LAZER, mais attention, ces mines doi¬ 
vent impérativement être touchées en leur 
centre pour être détruites. 

Quand une mine heurte votre vais¬ 
seau, le 1er cadran d'avarie s'emplit de 
rouge. Il s’emplit un peu plus à la 2ème 
3ème puis 4ème avarie et quand le der¬ 
nier cadran est complètement rouge, à la 
5ème avarie, votre vaisseau est détruit. 

Lorsque vous avez choisi les touches 
curseur pour diriger votre viseur, afin de 


une plus grande adresse afin de tirer les 
mines au passage. 

L’option joystick permet l'arrêt du vi¬ 
seur quand la manette est inactivée. Le 
viseur doit être arrêté pour pouvoir tirer. 
Quand vous avez plus d'une avarie, un 
petit vaisseau peut fortuitement traver¬ 
ser l’écran de droite à gauche ou de gau¬ 
che à droite. C'est à vous de le détruire en 
tirant sur le vaisseau de couleur rouge et 
non pas sur la charge blanche qu'il trans¬ 
porte. Si celui-ci est détruit on peut ima¬ 
giner que vous allez récupérer sa charge 
de matériaux et d'outils pour effectuer des 
réparations au DRAKE ; cela vous en¬ 
lève donc une avarie et vous laisse en¬ 
core un sursis dans ce périlleux voyage. 

Vous disposez de trois niveaux de 
difficulté : A, B etC. Ces niveaux se tra¬ 
duisent par la vitesse d'approche des mi¬ 
nes destructrices. 

Au niveau du tableau des scores, plus vous 
détruisez les mines quand elles sont éloi- 


10 ' 

llflilfffltVtfiltltVfffl 

>LA 

20 ’ 

1 « 

>LB 

30 ' 

t MISSION SPACIALE « 

>LC 

40 ' 

i « 

>LD 

50 ’ 

t Par i 

>LE 

60 ’ 

i « 

>LF 

70 ’ 

* Denis PAMART * 

>LG 

80 ’ 

« i 

>LH 

90 ’ 


>LJ 

100 ' 


>R8 

110 ’ 


>RC 

120 ' 


>RD 

130 ’ IIHHIIIIHHU 

>RE 

140 * » 

PRESENTATION « 

>RF 

150 ' »»#*»»»»«»»«*»»» 

>RG 


160 MODE 1 : INK 0,0:INK 1,6:1 NK 2,13 >YD 

,26:INK 3,26:B0RDER 1 

170 SYMBOL 255,0,66,36,24,24,36,66. >CH 


0 

180 C$=CHR*<255> >CD 

190 FOR lt=l T0 70 >DA 

200 l»=INT(RND(l)*630 M0 >UB 

210 I y =I NT(RND(l> * 390 ) +10 >UG 


corser le jeu et pour une plus grande ra¬ 
pidité d'action, le viseur ne s'arrête pas 
sur place quand aucune touche n'est pres¬ 
sée, il termine sa course avant de se sta- 


gnées, petites, plus vous marquez de 
points. 

Conseil : quand une mine heurte votre 
vaisseau (scrolling) et qu’il est trop tard 


220 PLOT 1x,1 y,3 

>LN 

230 NEXT 

>EA 

240 FOR g=l TO 5 

>VF 

250 ex=1 NT t RND 11)*38)+2 

>RM 


biliser contre un des 4 côtés qui limitent pour la détruire, cessez d'appuyer sur le 260 ev= INTiRNDt 1 ) *23) +2 >RH 

le rayon de tir. Cela oblige le joueur a bouton de tir (Copy ou FIRE). 270 PEN 2:SPEED INK 50,50:LOCATE e* >QA 
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.ey:PRINT C» 

2B0 NEXT 

290 PEU 1 :LOCATE 25.16 : PR INT-Par" 


I vulnérables qu'en leur centre." 

>EF 600 PRINT"Par chance, de teaps a a /TR 
>CC utre un petit vaisseau passe devan 


300 LOCATE 21.18 : PR INT"Denis PAMART >GB 

B 

310 FOR J = 8 TÛ 23 >CJ 
320 PEN 3:LOCATE J.lOiPRINT CHR»(20 /EL 
8 ) 

330 NEXT >EB 
340 FOR h=l TO 14 >CC 
350 READ A >JD 
360 POKE &B28F.A >EJ 


370 LOCATE 8,9 : PR 1NT"MI SS I ON SPACIA >JL 
LE" 

380 DATA 37,44.4b.60,7S.105.107,120 >KL 

.135.150.151.165.210.211 

390 FOR N=90 TÛ 125 STEP INTlRNDl1) >GU 


«10H1 

400 SOUND 1.N.2,15 /MK 
410 NEXT >EA 
420 NEXT >EB 
430 D*=INKEY» >PD 
440 IF D»<>’" THEN GOTO 470 >TB 
450 RESTORE >HD 
460 GOTO 340 >ZD 
470 ’ >TB 
480 ’ * REGLES DU JEU » >TC 
490 ’ iiHiiiiiioiiiii >TD 
500 DIM tb(40.2S) >GG 


510 CLSiINK 2,15:PEN 2:PÛKE iB28F,2 >DT ! 
11 

520 LOCATE 10.10 : PR I NT" VOIC1 LES RE /VU 
GLES DU JEU 

530 LOCATE 9.14:PRINT"LES CONNAISSE >XA 
Z-VOUS (0/N) ?" 

540 F*=INKEY* >PH 

550 IF F»="o" OR F*="0" THEN GOTO 6 >BT 

40 

560 IF F»="n" OR F»="N" THEN GOTO 5 >KL 
70 ELSE 540 

570 CLS )UG 

580 LOCATE 1.1:PR INT:PR INT" >CJ 

Coaaandant votre vaisseau, le 
DRAKE.vous etes envoyé en aission d 
e reconnaissance dans une région co 
ntroleepar l'enneai.Des votre arriv 
ee.des ainesdestructrices viennent 
se jeter sur votre vaisseau." 

590 PRINT "Vous devez iaperativeaen >TB 
t utiliser votreLAZER pour les detr 
uire; tais attention,elles ne sont 


t vous, et vous pouvez le detru 
ire afin de récupérer la charge qu’ 
il emportait, et qui va vous" 

610 PRINT "permettre d'effectuer le /DA 
s réparations urgentes." 

620 PRINT ” Les cadrans d'avari /NV 
es vous tiennenttouiours au courant 
de Metat du DRAKE. Déplacez votre 


viseur avec les touches de curseu 
r et faités feu avec la touche CÛPY 
. ou utilisez le JOYSTICK." 

630 CALL ABBOb /MB 
640 GOSUB 2790 >QK 
650 ORIGIN 20.112.20,620.366,112 >YB 
660 D»=INKEY» >PJ 
670 LOCATE 16.11 : PRI NT"JÛYSTiCK ?" >DV 
680 IF D»="Û" OR û*--"o" THEN JS=1 E >HG 
LSE JS=0 

690 IF D»="* THEN GOTO 660 /RB 
700 ' /RH 
710 ' « CHOIX DE DIFFICULTE « >RJ 

720 ’ uimmimiiiiiuiti >RK 


730 CLG:PHN 3:L0CATE 12.4:PRINT"0UE >YV 
LLE DIFFICULTE " 

740 LOCATE 11.6:PRIMT"DE JEU VOULEZ )PK 
-VOUS ?" 

750 LOCATE 12,1Û:PRINT"A ... FACILE /DF 

760 LOCATE 12.12:PRINT"B ... MÛYENN >FM 
E" 

770 LOCATE 12,14:PRINT’C ... PLUS D >PE 
I FF IC I LE" 

780 0»=INKEY» >RC 

790 IF 0»="a" OR 0*=*A" THEN RN=20: /HM 

NR=90:MB=140:BH-190:GOTO 830 

800 IF 0»="b" OR 0*="B" THEN RN=20: >HF 

NR=65:MB=110:BM=155:GOTO 830 

810 IF 0*="c" OR 0*="C" THEN RN=10: /GC 


NR=46:HB=90:BH=136 : GOTO 830 
820 GOTO 780 >AB 

830 CLG:VINDOU 2.39,3.18 >TD 

840 «INDOW 11,1.40.20.25 >RA 

850 IF v=l THEN PEN 2:GOTO 2090 >XT 

860 GOSUB 2090 >QG 

870 ’ »»»»»»**»»»•»»»«» >TF 

880 ’ « BOUCLE VISEUR « >TG 

890 ' >TH 

900 PEN 2 >AD 

910 IF JS=0 GOTO 1000 /NQ 

920 D»=INKEY» >PH I 


930 Z-JÛY(O) >GC 
940 IF Z=16 THEN GOSUB 1210 ;UÜ 
950 IF Z=4 THEN DX=1 )PM 
960 IF 2=8 THEN DX=t NE 
970 IF Z=1 THEN DY=-1 ?M 
980 IF Z=2 THEN DY=t /NE 
990 IF JS=1 THEN GOTO 1060 /TH 
1000 D»=INKEY» >VJ 
1010 dl = (d»=fl»)-(d*=f2») .,RU 
1020 d2=(d»=t3»)-(d»=f4*i >RA 
1030 IF dlOO THEN d«=dl:dv=0 /VH 
1040 IF d2O0 THEN dy=d2:dx=0 /VL 
1050 IF INKEY(9)=Û THEN GOSUB 1210 >AV 
1060 xp=px*dx /VB 
1070 yp=pytdy /VF 
1080 IF tb(«p,ypl=l THEN xp=p«:vp ; p /FJ 
y 

1090 LOCATE px.py /MP 
1100 PRINT n»; >TD 
1110 LOCATE ip.yp /MG 
1120 PRINT U; /Tb 
1130 px=xp /VE 
1140 py=yp /VH 
1150 IF an=4 OR an=S THEN RETURN >ZT 
1160 IF JS=1 THEN DX=0:DY=0 /VP 
1170 GOTO 900 /FC 
1180 ’ »*««»««« >YC 
1190 ’ » PIRE • /YD 
1200 ' ««»**««• /XF 
1210 x = INT115.95*ox) >PN 
1220 y = 1 NT(255-115.95*py ) 1 >UQ 
1230 FOR N=63 TO 75 STEP 3 )RD 
1240 SOUND l.N.2.15 >MJ 
1250 NEXT >KK 
1260 MOVE 80.1 /LK 
1270 DRAV x-20.y.3 /MV 
1280 MOVE 519.1 >VB 
1290 DRAV x,y /MD 
1300 MOVE 80.1 /LE 
1310 DRAV x-20,y.Ü >MM 
1320 MOVE 519.1 >UG 
1330 DRAV x.y >U 
1340 1F an=0 AND Ux-10)=u AND x-10 >TC 


<=u+20) AND (y*10/=v AND y»10<=v*15 

)) THEN AV=0:GÛTO 1430 

1350 IF in=l AND i(x-10>=u-5 AND x- >AL 

10<=u+25) AND (y* 10>=w-10 AND y+10< 

=v*20)) THEN AV=0 : GOTO 1430 

1360 1F »n=2 AND l(x-10>=u-10 AND x >CR 

-10<=u*30) AND (yH0>=v-15 AND y«10 

<=v+20)) THEN AV=0:G0T0 1430 

1370 IF in=3 AND t(x-10>=u-15 AND x >CL 

-10<=u+35) AND (y+10>=v-25 AND y+10 


4 


<=v+25) ) THEN AV=0:GÛTO 1430 
1380 1F an=4 AND l(px>=ax AND px<=a 
x+4) AND (py=ay)) THEN GOTO 1560 
1390 IF an=5 AND ((px>=ax AND px<-a 
x*4) AND (py=ay)) THEN GOTO 1590 EL 
SE RETURN 

1400 ’ XXXXXXIXX 
1410 ' « MINE DETRUITE « 

1420 1 iiiiiHiiiiiiHii 

1430 a=REMAIN(0) + REMAIN( 1 ) + REMAIN(2 
)*R£MAIN(3) 

1440 SOUND 1,200,10,7,0,0,1 
1450 CLG:MOVE u.v:DRAWR -50,25,2:M0 
VER 55,-15:DRAUR -20,20:MÛVER 25,-1 
0:DRAWR O,5O:M0VER 5,-60:DRAWR 20.2 
0:M0VER -10,-30:DRAUR 50,25:M0VER - 
50,-35:DRAWR 20,-10:M0VER -30,5:DRA 
WR 40,-50 

1460 MOVER -45.40:DRAWR 0,-20:N0VER 
-5,30:DRAWR -40,-5O:M0VER 35.55:DR 
AWR -20,-10:CLG 

1470 IF an=0 THEN LOCATE »1,8,5:PRI 

NTI1,":":s*3000::s=s*3000 

1480 IF an=l THEN LOCATE «1,8,5:PRI 

NTIl.":":s*2500;:s=s+2500 

1490 IF an=2 THEN LOCATE *1,8,5:PR1 

NT»1.":";s*2000;:s=s*2000 

1500 1F an-3 THEN LOCATE »1,8.5:PRI 

NT#1. ":":s+1000::s=s+1000 

1510 GOTO 2090 

1520 RETURN 

1530 ' HIIIIHHlllHIlIllIllll 

1540 ’ » PETIT VAISSEAU ABATTU » 
1550 ' xxxxxxxxxmxx 
1560 LOCATE ax+1.ay: PR INT ex» 

1570 LOCATE ax+1,ay+1 : PR I NT la» 

1580 ax=0:GOTO 1620 
1590 LOCATE ax,ay:PRINT ex» 

1600 LOCATE ax,ay*l:PRINT iat 
1610 ax=40 

1620 FOR a-1 TO 30:NEXT:CLG 

1630 FOR i=0 TO 20 

1640 SOUND l,80*3«i,i/2*5,7-i/4,,,1 

1650 NEXT 
1660 XB=90 

1670 IF 0=2 THEN XA=275 
1680 IF Q=3 THEN XA=310 
1690 IF Q=4 THEN XA=345 
1700 c=2 
1710 GOSUB 2270 
1720 0=0-1 
1730 GOTO 2090 




1740 ' xxxxxxxxxx 

>YE 

>KF 

1750 ' « APPARITION MINES » 

>YF 


1760 ’ xxxxxxxxxx 

>YG 

>CX 

1770 ’ 

>YH 


1780 ’ m LOCALISATION DES MINE 

S ix 

)YJ 

>XH 

1790 ’ m DEPARTS PETITS VA 1 SSE 

>YK 

)XJ 

AUX m 


>XK 

1800 CLG 

>YG 1 

>RG 

; 1810 RAND0M1ZE TIME 

>PL 


1§20 u=INT(RND(l)»550)*50 

>TQ 

;UN 

1830 v=1 NT(RND(1)•190)+40 

>TR 

>JY 

1840 IF q>l AND u)=550 AND v>=130 T 
HEN GOSUB 2610 

>NT 


1850 IF q>l AND u>=550 AND v<=130 T 
HEN GOSUB 2630 

>NU 


1860 IF u>=550 AND q^=l THEN u=0:v= 
0 : GOTO 1810 

>MP 

>NL 

1870 ’ 

>YJ 


1880 ’ m MINES DE DIFFERENTES 

TAILLES m 

>YK 

>EY 

1890 CLG:an=0 

>oc 


1900 MOVE u*5,v*5:DRAWR 0.5,3:DRAWR 

>CR 

>EJ 

10.10:DRAWR -5.0:DRAWR 0.5:DRAVR 
6.0:DRAWR 0.-3:DRAWR 10,-10:DRAWR 8 


>EA 

.0:DRAWR 10.10:DRAWR 0,3:DRAWR 6.0: 
DRAWR 0.-5:DRAWR -5,0:DRAWR -10,-10 


>E0 

:DRAUR 0,-5:DRAWR 10,-10:DRAWR 5,0: 
DRAWR 0, -5: DRAWR -6.0:DRAWR 0.3.-DRA 


>MF 

WR -10,10 


>FB 

1910 DRAWR -8,0:DRAWR -10.-10:DRAWR 

>KF 

)YB 

0,-3:DRAWR -6,0:DRAWR 0.5:DRAWR 5, 


>YC 

0: DRAWR 10,10 


>YD 

1920 RETURN 

>FF 

>YE 

1930 CLG:an=l 

>PJ 

>ZD 

1940 MOVE u,v:DRAWR 0,10.3:DRAVR -2 

>MF 

>NL 

0.20:DRAWR -10.0:DRAWR 0,10:DRAWR 1 


>WQ 

2,0:DRAUR 0,-5:DRAWR 20,-20:DRAUR 1 


ce 

>- 

5,0:DRAWR 20,20:DRAWR 0,S:DRAVR 12. 


>LE 

0:DRAWR 0,-10:DRAWR -10,0:DRAWR -20 


>VH 

,-20:DRAUR 0,-10:DRAUR 20,-20:DRAWR 


>LE 

10,0:DRAUR 0,-10:DRAUR -12,0:DRAUR 


>BA 

0.5 



1950 DRAWR -20.20:DRAWR -15,0:DRAWR 

>KC 

>LD 

-20,-20:DRAWR 0,-5:DRAWR -12,0:DRA 


>MF 

WR 0,10:DRAWR 10.0:DRAWR 20,20 


>0E 

1960 RETURN 

>FK 

>QW 

1970 CLG:an=2 

>QD 

>0G 

1980 MOVE u-5,v-5:DRAWR 0.15.3:DRAW 

>BV. 

>UK 

R -25,25:DRAUR -15,0:DRAUR 0.15:DRA 


>IC 

UR 18.0:DRAWR 0,-8:DRAWR 25.-25:DRA 


>LK 

UR 25,0:DRAUR 25,25:DRAUR 0,8:DRAUR 


>MK 

18,0:DRAWR 0,-15:DRAWR -15.0:DRAWR 



-25,-25:DRAWR 0,-15:DRAWR 25.-25:D 
RAWR 15,0:DRAWR 0,-15:DRAWR -18,0:D 
RAWR 0,8 

1990 DRAWR -25.25:DRAWR -25.0:DRAWR >LC 
-25,-25:DRAWR 0,-8:DRAWR -18,0:DRA 
WR 0.15:DRAUR 15,0:DRAWR 25.25 
2000 RETURN >EF 

2010 CLG:an=3 >PA 

2020 MOVE u-10.v-10:DRAWR 0.20.3:DR >FU 
AWR -30,30:DRAWR -2Ü.0:DRAWR 0.20:ü 
RAWR 24,0:DRAWR 0,-10:DRAWR 30.-30: 
DRAWR 30,0:DRAWR 30.30:DRAWR 0.10:D 
RAWR 24,0:DRAWR 0,-20:DRAWR -2Û.Û:D 
RAWR -30.-30:DRAWR 0,-20:DRAWR 30.- 
30:DRAWR 20.0:DRAWR 0,-20:DRAWR -24 
.0 

2030 DRAWR 0,10:DRAWR -30,30:DRAWR >FW 
-30.0:DRAWR -30.-30:DRAWR 0,-10:DRA 
WR -24,0:DRAUR 0,20:DRAWR 20,0:DRAW 
R 30.30 

2040 CLG >YD 

2050 IF AV=1 THEN GOSUB 2130 >VD 

2060 ' liimiiiHHHHHiiiiiiiii >YA 

mu 

2070 ' * BOUCLE D'APPARITION DES Ml >YB 
NES • 

2080 ' mmimmmmmmm >YC 
mu 

2090 AV=1:T=0:U=0:V=0:AFTER RN.O GO >NN 
SUB 1800:AFTER NR.1 GOSUB 1930:AFTE 
R MB,2 GOSUB 1970:AFTER BM.3 GOSUB 


2010 :RETURN 

2100 1 mxmxiimmmm ;XF 
2110 ' * VAISSEAU ENDOMMAGE # ;XG 
2120 ’ immiimxmmm >XH 
2130 FOR 1=1 TO 2 >BF 
2140 CALL 40000 >0C 
2150 FOR 0=1 TO 2 >CD 
2160 CALL 40006 >RA 
2170 NEXT >LB 
2180 CALL 40000 >0G 
2190 NEXT >LD 
2200 0=0*1 >LB 
2210 IF 0=5 THEN GOTO 2410 >T0 
2220 FOR N=7 TO 1 STEP -1 >0U 
2230 SOUND 1,426,40,N.,,1 >RF 
2240 NEXT >KK 


2250 LOCATE 6.9:PR 1 NT"VOTRE VAISSEA >BA 
U EST ENDOMMAGE !" 

2260 IF q=l THEN xa=240:xb=74:c=3:E >0U 
LSE GOTO 2340 

2270 ORIGIN 1.1,1,640,365,1 >UC 

2280 FOR y=70 TO xb >ME 
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2290 HOVE xa.y 
2300 DRAU xa+20,y,c 
2310 NEXT 

2320 0R1GIN 20,112.20,620,366.112 
2330 RETURN 

2340 IF 0=2 THEN XA=275:xb=78:c=3:G 
OTO 2270 

2350 IF 0=3 THEN XA=310:xb=82:c=3:G 
OTO 2270 

2360 IF 0=4 THEN XA=345:xb=66:c=3:G 
OTO 2270 
2370 RETURN 

2380 ’ lOIIHlIIIIHIDHIdlIlll 

2390 ' » VAISSEAU DESINTEGRE-FIN » 

2400 ’ HiiiiimiimKiimmii 

2410 ENV 2,50,-0.5,10 

2420 SOUND 1.598.200,4,2,2.11 

2430 XA=380 :x b=90 :GOSUB 2270 

2440 INK 1.6.26:INK 0.0.26:B0RDER 0 

.26 

2450 FOR 1=1 TO 200 
2460 SPEED INK 2.2 
2470 NEXT 

2480 INK 0.0:INK 1.6:B0RDER 0 
2490 IF S)R THEN R=S 
2500 LOCATE «1.26.5 
2510 PRINTtl."RECORD:":R: 

2520 LOCATE 6.6 : PR I NT" VOTRE VA1SSEA 
U EST DESINTEGRE !!" 

2530 LOCATE 10.9:PRINT"VOULEZ-VOUS 
PRENDRE" 

2540 LOCATE 8.11:PRINT"UN AUTRE DEP 
ART (0/N) ?" 

2550 D*=INKEY» 

2560 IF D»="o" OR D*="0" THEN CLG:I 
NK 1,24:LOCATE » 1,8,5 : PR I NT*1," : 00 
000 ":OKIGIN 1,1,1,640,365,1:G0SUB 
3890: OR IGIN 20,112,20,620,366.112:S 
=0:Q=û:w=i:pi=19:py=8:GOTO 660 
2570 1F D»="n" OR D*=’N* THEN HODE 
1: INK 1,18:BORDER 2:PEN 1:LOCATE 16 
, lü: PRiNT"DOHHAGE,LOCATE 10.12:PR 
INT’UNE AUTRE FOIS ALORS !": END :ELS 
E GOTO 2520 

2580 ’ iimiiiiiiHiiiiiiiiiiiii 

2590 ’ « PASSAGE PETIT VAISSEAU » 

2600 ’ iixxiiiiifixsiiiiytiiifiiff 

2610 FOR n=0 TO 3:a=REHAIN(n):NEXT 
2620 in=4:ax=35:ay=I NT(RND<1)» 13)+2 
:GOTO 2650 

2630 FOR n=0 TO 3:a=REMAIN(n):NEXT 
2640 ■n=5:a«=l:ay=INT(RND(l)«13)i2: 
GOTO 2670 



>XC 

>NN 

>KH 

>ZZ 

>FB 

>KC 

>KN 

>KD 

>FF 

>YF 

>YG 

>XJ 

>NY 

>VV 

>VB 

>DZ 

>LE 

>LQ 

>LE 

>UJ 

>NF 

>MV 

>VV 

>EB 

>QR 

>TB 

)VK 

>CJ 


>HG 


>YH 

>YJ 

>YA 

>CD 

>NB 

>CF 

>HH 


! 2650 LOCATE ax,ay:PEN 3:PRINT ad* >BC 
2660 LOCATE ax.ay*l:PEN 2:PRINT cd* >NF 
| :GOTO 2690 

1 2670 LOCATE ax.ay:PEN 3:PRINT da* >BE 
2680 LOCATE ax,ay+l:PEN 2:PRINT de* >DK 
2690 IF an=4 THEN ax=ax-0.99 ELSE a >LV 
x=ax+0.99 

2700 SOUND 1.240.10.10.1.2.5 >UB 

2710 IF JS=1 THEN DX=0:DY=0:GOSUB 9 >EB 
00 

2720 IF JS=0 THEN GOSUB 1000 >VH 

2730 IF an=4 AND ax<l THEN CLGîGOTO >FC 
2090 

2740 IF an=5 AND ax>35 THEN CLG:GOT >GZ 


0 2090 

2750 IF an=4 THEN GOTO 2650 ELSE 26 >CU 
70 

2760 ' »»»*»»»*HOH»»»l >YH 

2770 ’ » INITIALISATION » >YJ 

2780 ' »»»unii«**»u«*i >YK 

2790 HODE 1:BORDER 0:INK 0.0:INK 1, >VZ 
24:INK 2.26:INK 3.6 

2800 ' >YC 

2810 ’ »•« DESSIN TABLEAU DE BORD >YD 

ni 

2820 PEN 1 : FOR PX=2 TO 39 >RD 

2830 LOCATE px,2 >LD 

2840 PRINT CHR*(210);:tb(px,1)=1 >AV 

2850 NEXT >LG 

2860 FOR px=2 TO 10 >HA 

2870 LOCATE px,23 >LG 

2880 PRINT CHR*(208) >NB 

2890 NEXT >HA 

2900 FOR px=15 TO 26 >HD 

2910 LOCATE px.19 >LG 

2920 PRINT CHR»(208) >NU 

2930 NEXT >LF 

2940 FOR i=2 TO 39 >LY 

2950 tb(i,15)=l >UD 

2960 NEXT >LJ 

2970 FOR px=31 TO 39 >NE 

2980 LOCATE px,23 >HA 

2990 PRINT CHR*(208) )ND 

3000 NEXT >KE 

3010 px=9:py=24 >GH 

3020 FOR t=2 TO 5 >CK 

3030 LOCATE px+t,py-t >0X 

3040 PRINT CHR((204) >NK 

3050 NEXT t )VE 

3060 px=32:py=24 >LG 

3070 FOR t=2 TO 5 >DE 

3080 LOCATE px-t,py-t >Q£ 

I 3090 PRINT CHR((205) >NR 


i 3100 NEXT t >y* 

3110 FOR py=3 TO 22 >HU 

3120 LOCATE l.py >LV 

3130 PRINT CHRX209):tb(2.2)=1 :tb(2 >JT 
. py>=i 

3140 LOCATE 40,py ,LX 

3150 PRINT CHR*(211):tb(37.2)=l:tb( 

37, py )=1 

3160 NEXT py >GD 

3170 ’ >YD 

3180 ’ in DESSINS CANONS »«• >YE 

3190 FOR a=60 TO 50 STEP -1 >TD 

3200 HOVE 17.a >NB 

3210 DRAW 100,110.2 >HE 

3220 HOVE 622.a >VJ 

3230 DRAW 539.110 >HB 

3240 NEXT >LA 

3250 FOR a=16 TO 26 >LF 

3260 HOVE a.49 >PC 

3270 DRAW 101.110 >GA 

3280 NEXT >LE 

3290 FOR a =624 TO 614 STEP -1 >UU 

3300 HOVE a.49 >NH 

3310 DRAW 540.110 >GC 

3320 NEXT m 

3330 ’ ;YB 

3340 ’ »»» SC. RE. AVA. in >YC 


3350 LOCATE 17.22:PRINT'AVARIES" >BC 

3360 LOCATE 3.24 : PR INT"SCORE: 00000 >EA 

fl 

3370 LOCATE 26.24:PRINT"REC0RD: 000 >GV 
00 " 

3380 LOCATE 18.24:PEN 3: PR INT’DRAKE >EV 


" 

3390 ’ >YH 

3400 ' »»• VARIABLES m )XK 

3410 S=0 >VD 

3420 i*=CHR*(159) >LU 

3430 f1*=CHR»(242):f2*=CHR*(243) >YF 

3440 f3*=CHR*(240):f4*=CHR*(241) >YG 

3450 n*=CHR*(32) >CK 

3460 px=19:py=8 >HK 

j 3470 dx=0 >FB 

3480 dy=0 >FD 

3490 ’ >YJ 

3500 ’ m SCROLLING «*« >YA 

3510 HEHORY 39999 >LX 

3520 DATA 06,255,205.77,188,201 >XN 

3530 FOR ADR=40000 TO 40005 >TX 

3540 READ VALEUR >LD 

3550 POKE ADR.VALEUR >QC 

3560 NEXT >LF 

3570 DATA 06,0.205.77.188.201 >VC 


6 



3580 FOR ADR=40006 TO 40011 >TF 
3590 READ VALEUR >LJ 
3600 POKE ADR.VALEUR >QY 
3610 NEXT ADR >NC 
3620 ’ >YD 


3630 ' •«» 1NSCRIPTIONS:LAZER «« >YE 

< 

3640 MOVE 23.50:DRAVR -5.0.3:DRAUR >HC 
0.10:M0VER 9,-5:DRAUR 0.10:DRAWR 5. 

0:ORAUR 0.-10:MÛVER 0.5:DRAUR -5.0: 
MOVER 10,3:DRAWR 5.0:DRAUR 0.5:DRAU 
R -5.0:DRAWR 0.4:DRAUR 5,0:M0VER 9. 
-3:DRAWR -5.0:DRAUR 0.10:DRAUR 5.0: 
MOVER -5,-5:DRAWR 3.0 
3650 MOVER 6.1 :DRAWR 0.10:DRAWR 6.0 >PU 
:DRAUR 0,-4:DRAVR -6.0:DRAUR 6.-6 
3660 MOVE 580.85:DRAWR 0.-10:DRAWR >RK 
5,0:MQVER 4.-6:DRAWR 0.10:DRAUR 5.0 
: DRAUR 0.-10-.MÜVER 0.5:DRAWR -5,0:M 
OVER 15,-3:DRAWR -5,0:DRAUR 0.-4:DR 
AUR 5.0:DRAUR 0.-5:DRAUR -5,O:M0VER 
14,3:DRAUR -5.0:DRAUR 0,-10:DRAUR 
5.0:MOVER -5,S:DRAUR 3,0 
3670 MÛVER 6.-1l:DRAUR 0.10:DRAUR 6 >TM 


A 

,0:DRAUR 0.-4:DRAUR -6.0:DRAUR 6.-6 
3680 ' /YK 

3690 ’ «»« REDEFINITIONS ««« /ZA 

3700 SYMBOL 240.0.1.3.63.255.255.25 /EU 
5,63 

3710 SYMBOL 241.192,192.192.192,193 )NP 
.255,255,255 

3720 SYMBOL 242.0.0.0.255.254.252.2 >GV 1 

54.255 

3730 SYMBOL 243.0.3.3.3.3.3.0.0 /XN 
3740 SYMBOL 244,195.255.255.255.255 >JA 
.255,0.0 

3750 SYMBOL 245.0.192.192.192.192.1 >GG 
92.0.0 

3760 SYMBOL 246,0.0,0.255.127.63.12 /FN 

7.255 

3770 SYMBOL 247.3.3,3,3.131.255.255 /ED 
.255 

3780 SYMBOL 248,0.128.192.252.255.2 >LV 
55,255,252 

3790 SYMBOL 249.128,16.44.18.78,0.3 >EE 
4.8 

3800 SYMBOL 250.130,0.52.220.48.2.3 )FN 
2.132 


3810 ex*=CHR*(249)+CHR*125ÛJ +CHR*(2 >EU 
49) 

3820 i b*=CHR*(32)+CHR*(250)+CHR*(32 >CX 

) 

3830 ad*-CHR$(240)+CHR*(2411+CHR*(2 /NC 
42 J +CHRS(32) 

3840 daS=CHR$ < 321 -*CHR$(246)* CHR H 24 >PP 
7)*CHR$(248) N 

3850 cd»=CHR$l243)*CHR»lZ44MCHRHZ /PH 
45) +CHRK32) 

3860 dc*=CHR* ( 32 ) +CHR$ 1243 J +CHRH24 ; P J 


4)iCHR$(24b) 

3870 ' /ZA 

3880 ‘ »«• CADRANS D'AVARIES •«« ;2B 

3890 xa=240 /UH 

3900 FOR a=l TO 5 /BG 

3910 FOR y=70 TO 90 /MC 

3920 MOVE xa.y /XD 

3930 DRAW xa<20,y.2 /NF 

3940 NEXT >LH 

3950 XA=XA*35 >MK 

3960 NEXT /LK 

3970 RETURN /GC 

3980 ...FIN DE LIST... >POH 


CPC 

DISC CPC 
HS 17 


hors-serie 17 ANCIENS NUMEROS 




□ 140 F non abonné 

□ 110 F abonné 


Nom : _ 
Adresse : 


Prénom : 


Code postal : 
Date: _ 


Ville: 


Signature 




r * HORS-SERIE 

□ n° 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 

15, 16- 

• DISQUETTES HORS-SERIE 

□ HS 1,2, 3, 4, 5, 6, 7, 8, 9, 10, 

11, 12, 13, 14,15, 16- 


I 


15 F 


140 F 


Chaque dlsquatta comporta toui laa programmas du n° hors-série cor¬ 
respondant. Las abonnés à CPC bénéficient du tari* unitaire de 110 F 
pour las dlsquattas. 


Nom :_ 

Adresse: _ 

Code postal : 
Date: _ 


Prénom : 


Entoursz l*(s) numérojs) choisi*. 


Ville : 


Signature 


Merci d écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Retournez le(s) coupon(s) ou une photocopie à Editions SORACOM - La Haie 
de Pan-35170 BRUZ. 
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Microjarnac est un jeu de 
réflexion qui se joue 
à deux (ou par équipe). 

Les joueurs s'affrontent chacun 
sur leur tableau de jeu qui 
comporte 8 lignes, en essayant 
d'y écrire des mots plus longs 
les uns que les autres. 


Microjarnac 


Christophe VERNET 



T ous les coups vous sont permis, 
même le vol d'un mot : si votre 
adversaire en oublie un, vous pourrez alors 
déclarer J ARNAC et lui voler ce mot pour 
l'écrire sur votre jeu. 

Bien entendu, pour chaque mot écrit 
vous marquez des points et le gagnant 
est celui qui en a le plus, la partie s'arrê¬ 
tant dès qu'un joueur a rempli ses 8 li¬ 
gnes. 


10 

iiiiiiffiittiittiiitiiliiiiii 

;LA 

20 

il 

il 

yLB 

30 

»« MICROJARNAC 

II 

>LC 

40 

«« 

«1 

>LD 

50 

il par 

II 

>LE 

60 

i« 

ü 

>LF 

70 

*« Christophe Vernet 

il 

>LG 

CD 

O 

«« 

«1 

>LH 

90 

*» îars 1989 

II 

>U 

100 

11| 

«1 

>RB 

110 

’tfftflVffffflffMIIIttlIliilIftt 

>RC 

120 

» 


>RD 

130 MODE 1:BORDER 0:INK 0,0:INK 
3:INK 2,17 

1.2 

>LL 

140 RAND0H1ZE TIME 


>NU 

150 GOSUB 210 


>GJ 

160 

INK 3,22 


>UJ 


170 PEN 3:L0CATE 15,3:P81NT "Presen >KY 
te:* 

180 PEN 3:LOCATE 15,23:PRINT "PLEAS >XD 
E U A1T..." : LOCATE l.l.-PEN 1 : PR 1 NT 
"CHRISTOPHE VERNET":LOCATE AO.1 : PR 1 
NT CHRX164) 

190 RUN "Iarnac* )NQ 

200 ' >RC 


Tous les mots du dictionnaire (sauf 
les noms propres et les verbes conjugués) 
sont autorisés. 


Mais je n'en dis pas plus, les règles sont 



210 RESTORE 290 >DE 

220 FOR i=l T0 1S1 >U 

230 READ x,y >CK 

240 c= 1 NT ( RND* 10 ) : 1F c)0 AND c<5 TH >NH 
EN PEN 1:SOUND 1,25,4,7 ELSE PEN 2 
250 LOCATE x,y:PRINT CHRX233) >YU 
260 NEXT i >NG 

270 RETURN >ZE 

280 ’ >TA 

290 DATA 10,7,10,8.10,9,10,10,10,11 >DT 
,10,12,11,8,12,9,13,8,14,7,14,8,14. 
9.14.10.14.11,14,12,17,5,17,7,17,8, 
17,9,17,10,17,11,17.12,20,7,20,8,20 
.9,20.10.20,11,20.12,21.7.21.12.22, 
7,22,12,23,7,23,12,26,7,26,8,26,9,2 
6,10,26,11,26,12,27,7,27,9,27,10,28 
,7,28.9 

300 DATA 28.11,29.7.29.6.29.9,29.12 >TX 
,32,7,32,8,32,9,32,10,32,11,32,12,3 
8 


comprises dans le programme. 

Sauvez le premier listing sous le nom 
de votre choix (MICRO par exemple) et 
le deuxième sous le nom de JARNAC. 



3,7,33.12,34,7,34.12,35,7,35,8.35,9 
.35,10,35,11,35,12,4.14,5.14,6.14.7 
.14,7,15,7,16,7,17,7,18,7,19,6,19,8 
.14 

310 DATA 11,14,11,15,11,16,11,17,11 >ZH 
,18,11,19,12,14.12,16,13,14,13,16,1 
4.14.14,15,14,16,14,17,14.18,14,19, 

17.14.17.15.17.16.17.17.17.18.17.19 
, 18,14,18,16,18,17,19,14,19,16,19,1 

8.20.14.20.15.20.16.20.19 

320 DATA 23,14,23,15,23,16,23,17,23 >TQ 
,18,23,19,24,15,25,16,26,14,26,15,2 
6,16,26,17,26,18,26,19,29,14,29,15, 
29,16,29,17,29,18,29,19,30,14,30,17 
,31,14,31,17,32,14,32,15,32,16,32.1 

7 . 32 . 18 . 32.19 

330 DATA 35,14,35,15,35,16,35,17,35 >CE 
.18,35,19,36,14,36,19,37,14,37,19,3 

8.14.38.19 













400 SOUND 1,239,100,15,,1 

>RG 




410 FOR i=l TO 1500:NEXT i 

>TR 

10 ' 


>LA 

420 ’ 

>RG 

20 '«* ** 


>LB 

430 ' Initialisation 

>RH 

30 ’»« NICROJARNAC «» 


>LC 

440 ’ 

>RJ 

40 ’«« •* 


>LD 

450 k=T1 HE » z•z1 :RANDOHiZE k 

>IY 

50 '«* by Christophe Vernet •» 


>LE 

460 MODE 1:BORDER 3:INK 0,3:INK 1,2 

>MT 

60 ’«» «* 


>LF 

6:INK 2,22:INK 3,15:WIND0U 11,1,40, 


70 '«» «ars 1989 »» 


>LG 

22,25 .-PAPER» 1,0 


80 ’«» *• 


>LH 

470 j=0:t=0:sl=0:s2=0:Ll=3:L2=3 

>ZC 

90 1 •••fHiimiffifUitniiii 


>U 

480 joueurl=l:joueur2=2:il=19:*2=23 >QR 

100 ’ 


>RB 

;a=0:1a=0 


110 LOCATE 9,23:PEN 1:PRINT 'Voulez 

>QF 

490 q1=0:q2=0:adr1=43190:adr2=43390 

>DD 

-vous les réglés ? (0/N)" 



500 FOR i=43100 TO 43400 

>QG 

120 g»=UPPER*( INKEY») : IF g*=" THEN 

>FW 

510 POKE i,0 

>ZD 

120 



520 NEXT i 

>NF 

130 IF g»="0* THEN 4290 


>PC 

530 ’ 

>RJ 

140 IF g»="N" THEN 220 


>NX 

540 ’ Dessin du tableau de jeu 

>RK 

150 GOTO 120 


>YF 

550 ' 

>TA 

160 * 


)RH 

560 *=5:z=49:F0R i=l TO 6 

>TA 

170 


>RJ 

570 LOCATE «,2:PEN 2:PRINT CHR»(z) 

>CH 

180 '»• H 


>RK 

580 x=x*2:z=z*l:NEXT i 

>RL 

190 ’»« DESSIN »« 


>TA 

590 »=30:z=49:F0R i=l TO 6 

>TD 

200 '*» «« 


>RC 

600 LOCATE «,2:PEN 2:PRINT CHR*(z) 

>CB 

210 , «»«t*«»»»S»*M*l*»»*«*»m 


>RD 

610 x=n2:z=ztl:NEXT i 

>RE 

220 ’ 


>RE 

620 «=24:y=96 

>MK 

230 CLS:GOSUB 4090 


>NG 

630 FOR i=l TO 8 

>UD 

240 NODE 1:BORDER 0:INK 0,0:INK 

1,6 

>VV 

640 PLOT «,y:DRAU «.368,1 

>UH 

: 1 NK 2,25:INK 3,17 



650 *=*+32:NEXT i 

>HU 

250 ' 


>RH 

660 «=392:y=96 

>VD 

260 ’ deaande des noas des joueurs 

>RJ 

670 FOR i=l TO 8 

>UH 




680 PLOT *,y:DRAB «,368,1 

>UR 

270 ’ 


>RK 

690 k=*+ 32:NEXT i 

>HA 

280 LOCATE 6,2:PEN 2:PRINT 

N 

>JH 

700 »=640:y=369:PLOT 0,369:DRA« «,y 

>EG 

1 C R 0 J A R N A C —*:«=6 



,1 


290 FOR i=l TO 31 


>CG 

710 x=320:PL0T x,96 : DRAW x,400,l:x= 

>GV 

300 LOCATE »,2:P0KE 430011 :POKE 

>HL 

333:PLOT x,96:DRAU 1,400,1 


43003,l:CALL 43000 



720 y=3:z=49 

>FG 

310 *=«+1 :NEXT i 


>LY 

730 FOR i=l TO 8 

>UE 

320 LOCATE 1,25:PEN 2:PR INT CHR»(16 

>JC 

740 LOCATE 21,y:PEN 2:PR INT CHR»(z) 

>DN 

4) ;"Christophe Vernet* 



750 y=y+2:z=z*l 

>HF 

330 LOCATE 6,4:PEN liPRINT " - 

— 

>BR 

760 NEXT i 

>PB 




770 PEN 3:LOCATE 10,21:PRINT *M 1 C 

>VA 

340 LOCATE 3,10:PEN 3:INPUT "Joueur 

>RX 

R 0 J A R N A C* 


lrvotre noa S.V.P";joueurl» 



780 PLOT 0,95 :DRAU 640,95,1 : PLOT 0, 

>TF 

350 LOCATE 3,11:PEN 3:INPUT 'entrez 

>ZH 

94:DRAW 640,94,1 


un noabre";z 



790 IF j=0 THEN d=6 aSE d=l 

>UB 

360 LOCATE 3,15:PEN 3:INPUT "Joueur 

>RG 

800 LOCATE i,l:PEN 3:PRINT joueurl» >KT 

2:votre noa S.V.P";joueur2» 



:LOCATE 22,1 : PR INT joueur2* 


370 LOCATE 3,16:PEN 3:INPUT "entrez 

>RN 

810 LOCATE 16,1:PEN 1:PRINT sl:L0CA >VB 

egaleaent un noabre";zl 



TE 36,liPRINT s2 


380 LOCATE 2,20:PEN l:PRINT "Et 

■ai 

>GL 

820 ’ 

>TA 

ntenant,que le aeuilleur gagne 

!" 


830 ’ 

>TB 

390 ENT 1,100,-20,10 


>NF 

840 

>TC 


<i« 


«1 

>TD 

’xi 

TIRAGE DES LETTRES 

1» 

>TE 



«« 

>TF 

f 

>TG 

>TH 

f 

» 

Initialisation 


>RK 

>TA 


850 
860 
870 
880 
890 
900 
910 

920 d=6:ioueur*=joueur 1•:ioueur=jou >NV 
eurl 

930 CLS»1:1F (=2 THEN d=l >TC 

940 IF joueur 1 joueurl THEN adr=adrl >VE 
ELSE adr=adr2 

950 ja=0 >XJ 

960 ' >TF 

970 ' Tirage des lettres >TG 

980 ’ >TH 

990 ON joueur GOTO 1000,1010 >VH 

1000 IF Ll=19 AND «1=18 THEN GOTO 1 >HN 
260 ELSE 1020 

1010 IF L2=19 AND «2=24 THEN GOTO 1 >HN 
260 ELSE 1020 

1020 t=0:L0CATE»l,5,2:PEN»l,2:PRINT >MG 
11,joueur»;* tirez ■ ;d;*lettrets)": 
LOCATE #1,5,4 : PR I NT #1,"Appuyez";d; 

"fois sur ’T" 

1030 IF joueur=ioueurl THEN «=xl:L= >LB 
Ll:q=ql ELSE x=x2:L=L2:q=q2 
1040 PEN 3 >FG 

1050 g#=1NKEY* : IF g*="* THEN 1050 >ZK 
1060 IF g»=*t* OR g»=*T" THEN 1080 >YE 
1070 GOTO 1050 >HB 

1080 SOUND 1,119,25,7 >PD 

1090 t=t+l >HD 

1100 a=ROUND(((RND«10)»(RND»10)),0) >TB 
:c=INT(RND»10) 

1110 IF c>=3 OR c=0 THEN c=l >UR 

1120 a=a«9+(R0UND(RND«10>> >UE 

1130 1F a)256 THEN a=a-256:G0T0 113 >LH 
0 aSE 1140 

1140 ca=65*INT(a/10) >NC 

1150 1F ca>=87 THEN 1160 ELSE 1170 >ZB 
1160 IF c=l THEN ca=69 ELSE 1170 >IQ 
1170 POKE adr.ca >LT 

1180 LOCATE i,L:PEN 1:PRINT CHRKca >CC 
):POKE 43001,x-l:POKE 43003,L-1:CAL 
L 43000 

1190 L=L-t2:adr=adr*l:IF t=d THEN q= >BG 
q* t: GOTO 1200 ELSE 1050 
1200 IF joueur=joueurl THEN ql=q:Li >YB 
=L:adrl=adr ELSE q2=q:L2=L:adr2=adr 
1210 IF L=19 THEN 1220 aSE 1390 >XU 
1220 IF «=18 OR «=24 THEN 1390 ELSE >DL 
1380 






1230 ’ >IJ 
1240 ' Efface 16 lettres non utilis >XK 
ees 

1250 ’ >YA 
1260 ON joueur GOTO 1270,1280 >«N 
1270 x=18:xi=19:L=3:a=43190:G0T0 12 >ER 
90 

1280 x=23:xx=24:L=3:a=43390:G0T0 12 >EL 
90 

1290 FOR 1=1 TO 16 >LN 
1300 LOCATE x,L:PRINT CHR$(32):LOCA >DH 
TE i«,L:PRINT CHRK32) 

1310 L=L+1:NEXT i >LB 
1320 F08 i=l TO 16 >LG 
1330 POKE a.O:a=a+l:NEXT i >UR 
1340 ON joueur GOTO 1350,1360 >WK 


1350 Ll=3:adr1=43190:ql=0:xl=19:G0T >H« 
0 930 

1360 L2=3:adr2=43390:q2=0:x2=23:G0T >HY 
0 930 


1370 ’ >YD 
1380 IF joueur=joueurl THEN Ll=3:xl >2R 
=18 ELSE x2=24:L2=3 

1390 IF j=2 THEN d=6:j=0 >8V 
1400 IF d=6 AND |oueur=2 THEN 1=1 >ZC 
1410 ’ >XJ 
1420 'iiffitfxiiiiiixiiittixifii >XK 
1430 ’x» »* >YA 
1440 '»« JEU xi >YB 
1450 ’»« il >YC 
1460 ’ xxiiiiiiiiliiiiiiiiiiiiiii >YD 
1470 ’ >YE 
1480 ’ Question si aot ♦ de 3 lett >YF 
res 

1490 ’ >YG 


1500 CLS#1:ja=0:PENI2,2 :LOCATEI1,3, >AN 
1 :P81NT*1,joueur*;" vous avez le ch 
oix entre:*:LOCATE tl,8,2:PRINT»l," 

— Elcrire un ■ot":LOCATE ll,8,3:PR 
INTI1,*— Jlarnac" 

1510 LOCATE ll,8,4:PRINTtl,*-- Plas >AD 
ser votre tour" 

1520 gl=INKEYI:IF g*="" THEN 1520 >ZP 

1530 IF gl="e" 08 g$="E" THEN 1760 >YE 

1540 IF gl=*p" 08 gl=*P" THEN 1700 >YY 

1550 IF gl=*j" 08 g$="J" THEN 1570 >YR 


1560 GOTO 1520 >HH 
1570 ’ >YF 
1580 ' Jarnac >YG 
1590 ' > YH 
1600 ja=l >CJ 
1610 ENV 1,127,-50,200 >NH 
1620 ENT 1,239,12,3 >LF 


1630 SOUND 1,10,50,15,1,1 >RC 

1640 CLSt1 :LOCATEt1,12,2:PR I NT#1,*J >PE 

A 8 N A C* 

1650 FOR i=l TO 1500:NEXT i:PEN»2,2 >BJ 

1660 CLSIl:L0CATEIl,2,2:PRINT»l,"Ec >XG 
rivez votre aot noraaleaent.*:LOCAT 


Ell,2,3:PRINTIl,*il s'affichera sur 
votre jeu." 

1670 FOR i=l TO 2000:NEXT i:GOTO 17 >DG 
70 

1680 •* >YH 

1690 ’ >YJ 

1700 1F j=0 THEN d=6 ELSE d=l >YL 

1710 IF joueur=joueur 1 THEN ioueur= >UU 

joueur2:joueurl=joueur2l ELSE joueu 
r=joueurl:joueurl=joueurl* 

1720 GOTO 930 >FH 

1730 ' >YD 

1740 ' Acceptation du aot >YE 
1750 ' >YF 


1760 ENT 1,100,-20,10:SOUND 1,239,5 >GC 
0,15,, 1 

1770 CLS»1 :LOCATEil,11,2 : PR INTt1,*C >YU 
e aot est-il accepte":L0CATEIl,7,3: 
PRINT 11,"par votre adversaire ? (0 


/NI" 

1780 g»=INKEYI:IF g»="" THEN 1780 >ZG 
1790 IF g$="o" OR g»="0" THEN 1820 >YG 

1800 IF g*=*n" 08 gl="N" THEN ja=0: >JV 
GOTO 3640 

1810 GOTO 1780 >ND 

1820 IF 1=0 THEN d=6 ELSE d=l >VP 
1830 ' >YE 

1840 ’ Noabre de lettres >YF 

1850 ' >YG 

1860 CLStl : PENH, 2:L0CATE#1,4,2: INP >VE 
UTIl,"Coabien de lettres ?";N 
1870 POKE 43099,N >LP 


1880 IF N<3 THEN LOCATEI1,4,2:PR INT >VH 
11,"Mot de aoins de trois lettres 
interdits" aSE GOTO 1900 
1890 FOR i = l TO 1000:NEXT i:GOTO 18 >DK 
60 

1900 ' >YC 

1910 'Conception aot grâce a un aut >YD 

re 

1920 ' >ye 

1930 CLSI1: PR INTti,"Ecrivez-vous ce >XD 

aot avec les lettres ":PRINTI1,*d' 
un autre aot déjà place sur le jeu 
(0/N)?" 


1940 gl=INKEY*:IF gl="" THEN 1940 >ZC 
1950 IF g»="o" 08 gl="0" THEN 1980 >YN 
1960 IF gl="n" OR gl=*N" THEN nb=0: >PC 
Ij=0:GOTO 2050 

1970 GOTO 1940 >NJ 

1980 CLStl:PRINTI1."Indiquez alors >EL 
le noabre de nouvel les":INPUTI1,"le 
ttres que vous allez utiliser.",nb 
1990 IF )a=l THEN 2000 ELSE GOTO 20 >BR 
50 

2000 CLSt1 :LOCATEil,1,2:PRINTt1, "Et >LP 
puisque vous avez dit jarnac,":LOC 


ATEI1,1,3:PRINTI1,"quelle ligne de 
votre adversaire " 

2010 LOCATEil,4,4:INPUTI1,"utilisez >VJ 
-vous";Ij 

2020 ’ >XG 

2030 ' Deaande de la ligne >XH 
2040 ’ >XJ 

2050 CLSt1:L0CATEI1,1,2:INPUTI1,"Su >BA 
r quelle ligne inscrivez-vous votre 
aot ?(de 1 a 8)";Iigne 
2060 POKE 43098,ligne >PC 

2070 IF ligneCl OR ligne>8 THEN 208 >LP 
0 aSE 2110 

2080 CLSI1 :LOCATEI1,3,2:PRINTI1,"Er >NW 
reuriligne interdite." 

2090 FOR i=l TO 1000:NEXT i >UK 

2100 GOTO 1900 >HA 


2110 IF ja=l THEN 2120 ELSE lj=lign )HH 
e:GÛTO 2130 

2120 IF joueur=joueurl THEN joueur= >PP 


joueur2 ELSE joueur=joueurl 
2130 ON joueur GOTO 2140,2150 >WD 

2140 ad=43100«(ljxlO):GOTO 2160 >IY 

2150 ad=43300+( I j«10) .-GOTO 2160 >XB 

2160 adres=ad:adre=adres >VE 


2170 IF ligne=l THEN ligne=3:G0T0 2 >FL 
250 

2180 IF ligne=2 THEN ligne=5:GOTO 2 >FQ 
250 

2190 IF ligne=3 THEN ligne=7:G0T0 2 >FV 
250 

2200 1F ligne=4 THEN ligne=9:GOTO 2 >FP 
250 

2210 IF ligne=5 THEN Iigne=U:GOTO >GU 
2250 

2220 IF ligne=6 THEN Iigne=13:G0T0 >GY 
2250 

2230 IF ligne=7 THEN Iigne=15:G0T0 >GC 
2250 

2240 IF ligne=8 THEN Iigne=17:G0T0 >GG 
2250 
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2250 

IF 

lj=l THEN 1j=3:G0T0 2360 

>YH 

2260 

IF 

1j=2 THEN 1j=5:GOTO 2360 

>ZD 

2270 

IF 

1j=3 THEN 1j=7:G0T0 2360 

>ZH 

2280 

1F 

11=4 THEN 1j=9:GOTO 2360 

>ZH 

2290 

IF 

1j=5 THEN 1j=ll:G0T0 2360 

>ZU 

2300 

IF 

1j=6 THEN 1j=13:G0T0 2360 

>ZN 

2310 

IF 

1 J=7 THEN IJ=15:G0T0 2360 

>ZT 

2320 

IF 

1j=8 THEN 1j=17:G0T0 2360 

>zx 

2330 

f 


>YA 

2340 

» 

Inscription du mot 

>YB 

2350 

f 


>YC 

2360 

FEN 3 

>GC 

2370 

C S*1:L0CATE«1,10,2:PRINTil,"T 

>CQ 

apez 

votre mot:" 


2380 

t=C 

l:m=0 

>CF 

2390 

ON 

joueur GOTO 2400,2410 

>WK 

2400 

adr 

=43190:p=3:f=1igne:e=l:q=ql 

>PV 

:GOTO 2420 


2410 

adr 

=43390: p=3: f=ligne: e=26: q=q 

>QZ 

2:GOTO 2420 


2420 

IF 

ja=l THEN 2430 ELSE 2440 

>XF 

2430 

IF 

e=l THEN e=26 ELSE e=l 

>UL 

2440 

IF 

joueur=joueurl THEN x=19 EL 

>KH 

SE x : 

=23 



2450 

SOUND 1,119,25,7 

>PF 

2460 

CALL 43074 

>TB 

2470 

ca : 

=PEEK(43073)-32 

>0A 

2480 

i 


>YG 

2490 

' Comparaison avec lettres pla 

>YH 

cees 




2500 

» 


>XK 

2510 

IF 

ca=PEEK(ad) THEN GOTO 2560 

>AC 

2520 

ad= 

: adtl:m=m-tl 

>HF 

2530 

IF 

ad=adres+8-t THEN 2540 ELSE 

>FM 

2550 



2540 

ad ; 

=adres:m=O:G0TO 2640 

>UL 

2550 

GOTO 2510 

>HH 

2560 

POKE ad,PEEK(ad-m):POKE ad-m,c 

>EF 

â 

2570 

LOCATE e,f: PR 1 NT CHR$(ca):POKE 

>UU 


A3001,e-1 :POKE 43003,f-l:CALL 4300 

0 

2580 e=e+2:adres=adres*l:ad=adres:t >PE 


=t+l:m=0 

2590 IF t=N THEN 2860 >NF 
2600 GOTO 2440 >HF 
2610 ’ >YB 
2620 ’ Comparaison lettres restante >YC 
s 

2630 ' >TD 
2640 IF ca=PEEK(adr) THEN GOTO 2710 >BU 
2650 adr=adr-tl:p=p+2:m=m*l >VC 
2660 1F m=q THEN 2750 >NX 
2670 IF p= 19 THEN p=3:G0T0 2680 as >FG 


E 2690 

2680 IF joueur=joueurl THEN *=18 EL >KP 
SE (=24 

2690 IF m=q THEN 2750 >NA 

2700 GOTO 2640 >HJ 

2710 POKE adr,0:LOCATE x,p:PRINT CH >UA 
R$(32):LOCATE x,pU:PRINT CHRK32) 

2720 IF )oueur=joueurl THEN adr=431 >XF 
90 ELSE adr=43390 

2730 m=0 )UB 

2740 p=3:G0T0 2790 >HH 

2750 CLS#l:PEN#l,2:LOCATE#1.4,2 : PR I >DL 
NTtl,"Cette lettre est mauvaise." 

2760 FOR i=l TO 1000:NEXT i:CLS»l:L >MZ 
0CATE»1,4,2:PRINTI1,"Tapez une nouv 
elle lettre.":p=3:a=0 
2770 IF joueur=joueurl THEN adr=431 >XL 
90 ELSE adr=43390 


2780 GOTO 2440 >NE 
2790 LOCATE e,f:PRINT CHR*(ca):POKE >UA 
43001,e-l:P0KE 43003, f-l:CAa 4300 

0 

2800 FOR i=adre*9 TO ad STEP -1 >XB 
2810 POKE i.PEEK(i-l) >PM 
2820 NEXT i >VH 


2830 POKE ad,ca:ad=ad-*l:adres=adres >GE 
, +1 

2840 t=t+l: IF t=N THEN 2860 aSE 28 >CC 
50 

2850 e=e*2:G0TÛ 2440 )NR 

2860 IF nb=0 THEN 2880 ELSE 2870 >XL 
2870 1F q-nb=0 THEN 2890 ELSE 2940 >ZV 
2880 IF q-N=0 THEN 2890 ELSE 2940 >YA 
2890 IF joueur=ioueurl THEN adrl=43 >AE 
190:q1=0:L1=3 ELSE adr2=43390:q2=0: 

! L2=3 


2900 GOTO 3210 >HE 
2910 ’ >YE 
2920 'réinscription pions non utili >YF 
ses 

2930 ’ >YG 
2940 IF nb=0 THEN 2950 ELSE N=nb >YE 
2950 PEN 1 >GF 
2960 ON joueur GOTO 2970,2980 >XF 


2970 adr=43190:x=19:xx=18:q=ql:GÛT0 >JC 
2990 

2980 adr=43390:x=23:xx=24:q=q2:GOTO >JY 
2990 

2990 f=3:F0R i=l TO 16:L0CATE x,f:P >GL 

RINT CHR$(32):f=f+l:NEXT i 

3000 f=3:F0R i=l TO 16:L0CATE xx,f: >HV 

PRINT CHR*(32):f=fU:NEXT i 

3010 i=0:a=0 >AF 


3020 a=PEEK(adr) >LX 

3030 IF a=0 THEN GOTO 3040 ELSE 305 >AB 
0 

3040 adr=adr+l:a=a+l:i=i+l:G0T0 306 >EF 
0 

3050 POKE adr,RO:POKE adr-m,a:i = in >PF 
:adr=adr*l 

3060 IF i=q+l THEN 3070 ELSE 3020 >YN 
3070 f=3:a=0:IF joueur=joueurl THEN >CA 
adrl=43190*ql-N:adr=43190 ELSE adr 
2=43390*q2-N:adr=43390 
3080 ca=PEEK(adr):LOCATE x,f:PRINT >HZ 
CHS*(cal 

3090 POKE 43001,x-l:POKE 43003,f-1: >LY 
CALL 43000 

3100 adr=adr*l:a=a+l:f=M2 >V« 

3110 IF f=19 THEN 3120 ELSE 3130 >XH 

3120 IF joueur=joueurl THEN x=18:f= >VT 

3 aSE <=24: f=3 

3130 IF a=q-N THEN 3140 ELSE 3080 >YD 
3140 IF joueur=ioueurl THEN ql=q-N >QH 
ELSE q2=q-N 

3150 IF x=18 OR x=24 THEN 3160 ELSE >DL 
3170 

3160 IF joueur=joueurl THEN Ll=f:GO >HL 

TO 3210 ELSE L2=f:G0T0 3210 

3170 IF joueur=1oueurl THEN Ll=3»2« >LH 

q 1 : x 1 = 19 ELSE L2=3*2»q2:x2=23 


3180 ’ >YE 

3190 ' Echange des mémoires si jar >YF 
nac 

3200 ’ >XH 

3210 IF ja=l THEN 3220 ELSE 3440 >XC 
3220 z=PEEK(43098) >HJ 

3230 ON joueur GOTO 3240,3250 >«K 

3240 Ii=43300+z»10:GOTO 3260 >VB 

3250 li=43100+z»10:GOTO 3260 >VQ 

3260 FOR i=l TO 8 >CG 

3270 POKE li,PEEK(adre) >TU 

3280 adre=adre+1:11=1i♦1 :NEXT i >AA 

3290 adre=adre-8 >LY 

3300 FOR i=l TO 8 >CB 

3310 POKE adre,0 >HK 

3320 adre=adre*l:NEXT i >TX 

3330 IF li=0 THEN 3400 >PQ 

3340 ON joueur GOTO 3350,3360 >WR 

3350 e=l:f=lj:G0T0 3370 >R0 

3360 e=26 : f=1 j : GOTO 3370 >TF 

3370 FOR i=l TO 8 >CJ 

3380 LOCATE e,f:PRINT CHR$(32):POKE >UH 
43001,e-l:POKE 43003, f-l:CAa 4300 

0 

3390 e=e+2:NEXT i >LN 
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3400 IF joueur=joueurl THEN joueur= >PR 
joueur2 ELSE joueur=joueurl 
3410 ’ >YA 

3420 ’ Score >YB 

3430 ' >YC 

3440 N=PEEK<43099) >MB 

3450 IF N=3 THEN s=l )NB 

3460 IF N=4 THEN s=2 >NE 

3470 IF N=5 THEN s=3 >NH 

3480 IF N=6 THEN s=4 >NL 

3490 IF N=7 THEN s=5 >NP 

3500 IF N=8 THEN s=6 >NH 

3510 CLSI1:L0CATEI1,4,2:PRINTI1,"Vo >HJ 
us aarquez";s;"points* 

3520 ON joueur GOTO 3530.3540 >UR 

3530 sl=sl+s:a=sl:x=16:G0T0 3550 >AF 

3540 s2=s2+s:a=s2:x=36:G0T0 3550 >AM 

3550 LOCATE x.l:PEN 1:PRINT a >IE 

3560 IF ja=l THEN 3570 ELSE 3630 >XV 

3570 IF joueur=joueurl THEN ioueur= >PA 

joueur2 ELSE joueur=joueurl 
3580 ON joueur GOTO 3590.3600 >WB 

3590 sl=sl-s:a=sl:x=16:G0T0 3610 >AL 

3600 s2=s2-s:a=s2:x=36:G0T0 3610 >AH 

3610 LOCATE x,l:PEN 1:PRINT a >XB 


3620 IF joueur=joueurl THEN joueur- >PW 

joueur2 ELSE joueur=joueurl 

3630 FOR i = l TO 2000:NEXT i : GOTO 36 >00 

50 

3640 IF joueur=joueurl THEN joueur= >UY 
joueur2:joueur»=joueur2* ELSE joueu 
r=joueurl:joueur»=joueurl$ 

3650 IF j=0 AND joueur=l THEN j=2:G >KG 
OTO 3680 


3660 

IF ja=l THEN GOTO 3670 &SE 36 

>CE 

80 




3670 

IF 1 igne=17 THEN 3760 ELSE 139 

>BF 

\J 

3680 

IF !igne=17 THEN 3760 ELSE 930 

>AY 

3690 

» 


>ZA 

3700 

’iiiiiiiiiiiiiiiiiiiiiiiiii 

>YC 

3710 

'h 

ii 

>YD 

3720 

'il 

GAGNE h 

>YE 

3730 

•il 

il 

>YF 

3740 

'tlltt!!!! 

llllillllllllllll 

>YG 

3750 

» 


>YH 

3760 

LOCATE 13, 

10.-PEN 2 : PR 1 NT "FIN 

>LG 

DU 

JEU" 



3770 

x=13:F0R i 

=1 TO 12 

>QL 

3780 

POKE 43001 

,x-l:POKE 43003.9:CA 

>JL 

LL 43000 



3790 

x=x+l:NEXT 

i 

>HZ 

3800 

ENV 1,100, 

1,1:ENT 1,100,5,3 

>XB 





: 3810 SOUND 1,119.300.7,5,1 >TQ 

3820 FOR 1=1 TO 2500:NEXT 1 >UU 

3830 MODE 1 >PK 

3840 IF sl=s2 THEN 3850 ELSE 3890 >YN 
3850 LOCATE 10.10:PEN 2: PRI NT "Vous >DZ 
etes ex aequo !!" 

3860 x=10 : FOR 1=1 TO 40 >QJ 

3870 POKE 43001,i-l:POKE 43003,9:CA >JL 
LL 43000 

3880 x=x+l:NEXT i:GOTO 3960 >VF 

3890 IF sl>s2 THEN 3900 ELSE 3910 >YH 
3900 joûeur*=joueurl»:GOTO 3920 >AG 
3910 joueur»=joueur24:G0T0 3920 >AJ 
3920 LOCATE 10,10:PEN 2:PRINT joueu >YD 
r$;* a gagne !!!" 

3930 x=10:FOR i=l TO 40 >QG 

3940 POKE 43001,1-1:POKE 43003,9:CA >JJ 
LL 43000 

| 3950 x=x+l:NEXT i >MX 


3960 LOCATE 13,23:PRINT 'UNE AUTRE >VT 
PARTIE (0/N)?* 

3970 g$=INKEY$: IF g»=" THEN 3970 >ZN 
3980 IF g*='o" OR g*="0" THEN 110 >IV 
3990 IF g$=*n" OR g*="N" THEN 4010 >YC 


4000 GOTO 3970 >NA 

4010 MODE 1:END >ZH 

4020 ’ >XJ 

4030 'mimnmtnmnnnn >XK 

4040 '»» ix >YA 

4050 '»» DATA DOUBLE HAUTEUR «• >YB 

j 4060 ’»» xi >YC 

4070 ’iiiiiiiiiiiiiiiiiiiiiiiiii >YD 

4080 ' >YE 

4090 MEMORY 41999 >LU 

4100 RESTORE 4160 >LQ 

4110 FOR i=43000 TO 43095 >RJ 

4120 READ a» >VH 

4130 a=VAL("i"*a$):POKE i,a >UH 

4140 NEXT i >VE 

| 4150 RETURN >FD 


4160 DATA 26,00,2E,00,CD,IA,BC,01,0 >ZN 
0,38,09,E5,EB,El,01,50 
4170 DATA 00,E5,EB,09,EB,El,E5,05,3 >AV 
E,01,01.02,00,ED,BO,B7 
4180 DATA 28,0C,D1,E1,7A,D6.08,57,E >AH 
5,D5,3E,00,18,EC,DI,El 
4190 DATA 7C,D6.O8,FE,C0,67,D8,7A,D >AU 
6,08,FE,C0,57,30,D7,EB 
4200 DATA 01,BO,3F,09.EB.18,CF,00,0 >ZD 
0,00,CD,06,BB,32,41,A8 
4210 DATA C9,00,00,00,00,00,00,00,0 >IX 
0 , 00 , 00 , 00 , 00 , 00 , 00,00 
<220 ’ >YA 


4230 1 mimimumimmiii >YB 

4240 il >YC 

4250 ’» REGLES h >YD 

4260 U >YE 

4270 'iiiiiiiiiiiiiiiiiiiiiiiiii >YF 

4280 ’ >YG 

4290 CLS: MODE 2:BORDER 13:INK 0,13: >ZP 
INK 1,0:PAPER 0:PEN 1 
4300 LOCATE 30,1: PR INT •» REGLES >HR 
«" 

4310 LOCATE 1,4:PRINT "I) BUT DU >HM 

JEU" 

4320 PR INT "Le but de ce jeu est de >NZ 
■arquer le plus de points possible 
s,en écrivant des ": PR I NT "lots tou 
jours plus longslaais aotns de 8 le 
ttres. ),avant qu’un quel conque":PR I 
NT "joueur reiplisse les 8 lignes d 
e son tableau de jeu." 

4330 PRINT "Il faut donc éviter de >QJ 
reaplir ses 8 lignes le plus vite p 
ossible,aais au":PRINT "contraire y 
faire un plus grand noabre de aot. 

• 

4340 PR 1 NT : PR I NT : PR I NT "II) DEROU >DB 
LEMENT DE LA PARTIE 

4350 PRINT "Chaque joueur,lorsque c >CR 
'est son tour de jeu,a le choix ent 
re 3 possibiIites :":PRI NT:PRINT" 

— 1 — Ecrire un ao 
t DE PLUS DE 3 LETTRES" 

4360 PR I NT : PR I NT "On peut donc soit >GC 
écrire un aot nouveau sur une lign 
e vide,ou concevoir un ": PRlNT " ao 
t a partir des lettres d'un aot dej 
a place sur le jeu et de nouvelles" 

4370 PRINT "lettres de sa reserve ( >ZM 
lettres blanches):iI placera alors 
ce aotVPRINT "IMPERATIVEMENT SUR L 
A MEME LIGNE QUE LE MOT D'ORIGINE." 

4380 LOCATE 32,23:PRINT "» ESPAC >HE 
E «" 

4390 GOSUB 4800 >YA 

4400 PRINT "Il révélé ensuite ce ao >KU 
t a son adversaire qui doit lui dir 
e si le aot est *:PRINT "valable ou 
non.(Si non,alors il perd son tour 
de jeu.)" 

4410 PRINT "Il doit ensuite entrer >NC 
dans l’ordre,LE NOMBRE DE LETTRES D 
U MOT,LE NUMERO DE ":PRINT "U LIGN 
E sur laquelle il écrit ce aot.’:PR 
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INT "Ensuite,s’il écrit un aot grac 
e a un autre lot déjà place sur le 
jeu,il doit ’ 

4420 PRINT "entrer LE NOMBRE DE NOU 
VELLES LETTRES parai la reservelen 
blanc) qu’il utilise." 

4430 PR I NT : PR I NT "Il ne lui reste p 
lus qu'a taper le aot lettre par le 
ttre." 

4440 PR INT:PR INT "TOUT JOUEUR QUI E 
CRIT UN MOT A LE DROIT DE RETIRER 1 
LETTRE ET DE CONTINUER ":PRINT "A 
JOUER JUSQU’A CE QU'IL PASSE SON TO 
UR." 

4450 PR 1 NT : PR 1 NT " 

- 2 — Jarnac* 

4460 PR1NT:PRINT "C'est le coup le 
plus iaportant de la partie":PRINT 
"Si un joueur dit JARNAC,c’est qu'i 
I a reaarque que son adversaire,apr 
es avoir":PRINT "passe son tour,aur 
ait encore pu écrire un aot qu’il n 
'a aalheureuseaent pas vu." 

4470 PRINT:PRINT "Ce joueur S’EMPAR 
E ALORS DE CE MOT,en l'écrivant sur 
une de ces lignes,et en":PRINT "aa 
rquant les points attribues pour ce 
aot,le joueur qui l'a laisse pass 
e," 

4480 PRINT "quant a lui,perd les le 
ttres,et voit son score diainuer du 
aeae noabre de ":PRINT "points " 
4490 LOCATE 32,25: PR INT "» ESPAC 
E «" 

4500 GOSUB 4800 

4510 PRINT "Le joueur,qui a dit Jar 
nac,doit donc egaleaent entrer le N 
OMBRE ":PRINT "DE LETTRES DU MOT,et 
LE NUMERO DE U LIGNE DE JEU OU IL 
INSCRIT CELUI-CI." 

4520 PR I NT : PR I NT "De plus.si le aot 
est concu a partir des lettres d'u 
n aot déjà écrit,":PRINT "IL DEVRA 
INDIQUER en plus du noabre de nouve 
Iles lettres qu'il utilise,":PRINT 
"LE NUMERO DE LA LIGNE ADVERSE OU E 
ST INSCRIT LE MOT DE DEPART." 

4530 PRINT:PRINT " 

- 3 --- Passer son tour" 

4540 PR I NT : PR I NT: PR I NT "III) 

NOMBRE DE POINTS • 

4550 PRINT "Le noabre de points est 
attribue selon le noabre de lettre 



>AA 

>AK 

>PA 


>TC 

>CD 


>HJ 


>CM 

>HJ 

>XD 

>PR 


>HJ 


>HV 

>CX 

>KZ 


s du aot constitue":PRINT "Ils sont 
représentes sur le tableau de jeu 
par les chiffres 1 a 6 situes * : PR IN 
T "en haut de chaque colonne d'affi 
chage." 

4560 PRINT "Ainsi,le chiffre situe >VR 
en haut de la colonne ou est inscri 
t la derniere 1ettre": PR INT "du aot 
,donne la valeur de ce aot." 

4570 PR I NT : PR I NT "Un aot de 3 lettr >KX 
es donne 1 point*:PRINT "Un aot de 

4 lettres donne 2 points": PR I NT "Un 
aot de 5 lettres donne 3 points":P 

| RINT•" etc...." 

4580 LOCATE 32,25:PRINT "» ESPAC >HJ 
E «" 

4590 GOSUB 4800 >YC 

4600 PR INT : PR I NT "IV) GEN >LQ 

ERALITES 

4610 PR INT : PR I NT "ATTENTION:se troa >BK 
per dans certain nuaero,entraînerai 
t de la part du prograaae":PRINT "d 
es réponses inattendues,et il serai 
t alors*:PRINT "necessaire de stopp 
er la partie, et d’en reprendre une 
nouvelle." 

4620 PR I NT : PR I NT "Les nuaeros 1 a 8 >RA 
situe verticaleaent entre les deux 
tableaux de jeu ":PRINT "represent 
ent les nuaeros des 8 lignes de jeu 

4630 PR I NT : PR I NT "Au début du jeu,c >HT 
haque joueur doit tirer pour la pre 
aiere fois 6 lettres,": PR I NT "ensui 
te le tirage ne sera plus que de 1 
lettre.":PRINT "Lorsque on écrit un 
I aot,il faut taper ses lettres âpre 
| s chaque bip sonore." 

4640 PR I NT : PR I NT "Attention:T0UTE L >NE 
ETTRE POSEE SUR LE TABLEAU DE JEU N 
E PEUT ETRE ENLEVEE.• 

4650 PRINT "Lorsque vous concevez u >QN 
n aot a partir d'un autre,VOUS DEVE 
Z UTILISER TOUTE":PR INT "LES LETTRE 

5 DU MOT DE DEPART . * 

4660 PR INT:PR INT "VOUS NE POUVEZ EC >YC 
RIRE SUR LA DERNIERE LIGNE (ce qui 
signifie que le jeu":PRINT "s'arret 
era),s'il RESTE D’AUTRES LIGNES QUI 
SONT VIDES." 

4670 PRINT:PRINT "Lorsqu'il y a 16 >YK 
lettres en reserve,et que vous ne p 
ouvez plus ": PR I NT "jouer,alors cel 
1 les-ci s’effacent pour laisser la p 


lace a de nouvelle lettres,": PR I NT 
"peut-etre aeiHeures." 

4680 LOCATE 32.25:PRINT "» ESPAC >HK 
E «" 

4690 GOSUB 4800 >YD 

4700 PR INT : PR I NT "V) EXEMPL >MU 

E DE JEU" 

4710 PR INT:PR INT "Supposons que le >NL 
joueur i est dans sa reserve 3 lett 
res:A,S,R ": PR 1 NT "Sur la ligne nua 
ero 1 de son tableau de jeu.il vien 
t d'ecrire le aot TROP.de 4": PR I NT 
"lettres,qui lui a rapporte 2 point 
s." 

4720 PRINT "Il doit donc rejouer et >GZ 
tire un E.Il a alors le choix entr 
e : " : PR I NT " — écrire le aot ARE 
S sur une ligne videldonc la deuxie 
ae ligne)":PRINT "et aarquer 2 poin 
ts." 

4730 PRINT " -- ou écrire,grâce a >KV 
ux lettres de la ligne 1,soit TROP, 
et de DEUX des": PR INT "lettres de s 
a reserve:E et S,le nouveau aot POR 
TES,de 6 lettres.":PRINT "Celui-ci 
lui raportera alors 3 points,et il 
devra écrire PORTES sur la aeae" 

4740 PRINT "ligne que TROP,soit sur >JT 
LA PREMIERE LIGNE" 

4750 PR 1 NT : PR I NT "Ce joueur retire >LP 
alors une lettre,un P,et passe son 
tour :iI a alors 3":PRINT "lettres e 
n reserveHe A,R et le P." 

4760 PRINT "Le joueur 2,apres avoir >QU 
'■ tire ses lettres,déclaré Jarnac.En 
effet,il a reaarque":PRINT "que le 
joueurl pouvait encore écrire,grac 
e a sa PREMIERE LIGNE et a DEUX":PR 
INT "LETTRES DE SA RESERVE:le A et 
le P,le aot de 8 lettres APPORTES." 

4770 PRINT "Il écrit donc ce aot su >ZR 
i r une de ses lignes videsda l),uti 
I lise la ligne 1 de":PRINT "son adve 
rsaire.et 2 nouvelles 1 ettres; i I aa 
rque alors 6 points.Le joueur 1,lui 
":PRINT "perd 6 points,qui lui sont 
soustrait." 

4780 LOCATE 20,25:PRINT "» ESPAC >KL 
E pour RETOUR AU JEU «• 

4790 GOSUB 4800:GOTO 230 >RQ 

4800 g*=INKEY»:1F g*="" THEN 4800 >ZY 
4810 IF g$=>* " THEN CLS:RETURN >YA 
I 4820 GOTO 4800 >NDA 
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Daniel SAINTOT 


GESTION 

PHILATELIQUE 




La gestion d’une collection de timbres faite 
manuellement demande de nombreuses heures 
de travail et beaucoup de méthode. Ce 
programme va vous apporter une assistance 
dans vos classements. -KT” 


I l y a peu de chose à dire puisque les me¬ 
nus sont assez explicités. 

Vous gagnerez beaucoup de temps car il existe 
la possibilité d’imprimer chaque fichier et donc de 
bénéficier d’un double support (avec la disquette). 


C 1985 VOLK 


10 >LA 

IHHHHIHHHIIIHHiimillllH 

20 ’* >LB 

» 

30 ’* -GESTION >LC 

PHILATELIQUE - 
« 

40 ’» >LD 

« 

50 '« - NA >L£ 

RS 1987 - 

i 

60 ’« >LF 


i 

70 '« ( D. >LG 

Saintot. ) 

i 

80 ’» >LH 

« 

90 1 tiittiitixiiiiitmiiiitiiiiitt >LJ 

DltlIHIlHIIHIIIHIHIHHlItll) 

100 CLEAR >JF 

110 MODE 2 >HB 

120 ma$=" MENU (annuel)* >VB 

130 lp»=«- LE PAYS OU L’ANNEE (P >FR 


) -* 

140 cd$="TIHfiRE NUMERO OU 'enteri P >LF 
0UR RETOURNER AU MENU" 

150 ab$="timbre numéro" >XK 

160 op»="- VOUS NE POSSEDEZ PAS CE >ZK 
TIMBRE DANS VOTRE COLLECTION !!! -" 

170 klM"- NUMERO DU TIMBRE RECHERC >CP 

HE.(ENTER) POUR RETOURNER AU MENU : 

« 

180 e«$="- EXEMPLE :USA 1986 (MAXIM >XE 
UM 8 LETTRES POUR DISK 11 LETTRES P 
0UR CASSETTES" 

190 apq»="- QUEL PAYS ET QUEaE ANN >JG 
EE DES IREZ-VOUS TRAITER . 


200 GOTO 1020 >EC 

210 CLS >TH 

220 L0CATE 1,2:PRINT"- Ce programme >WU 

est concu pour gerer votre collect 
ion de timbres y co«pris les" 

230 L0CATE 1.3:PRINT" variétés." )EL 

240 L0CATE 1.4:PR INT"- Son emploi e >VU 

st très simple.En effet vous aurez 
beaucoup de données a saisir’ 

250 L0CATE 1,5:PRINT" et cela aile >GE 
géra au aaxiaui votre travail." 

260 LOCATE 1,6:PRINT"- Lors de la s >GU 
aisie il vous faudra indiquer 
270 LOCATE 1.7:PR INT"- LE NUMERO DU >NV 
TIMBRE" 

280 LOCATE 1.8:PR INT’- a NOMBRE DE >YT 
14 


TIMBRES NEUFS QUE VOUS POSSEDEZ" 

290 LOCATE 1,9:PR INT"- LE NOMBRE DE >EV 
TIMBRES OBLITERES QUE VOUS POSSEDE 
Z" 

300 LOCATE 1.10:PRINT"- U COTE DE >TC 
CES TIMBRES" 

310 LOCATE 1.11:PRINT"- Vous valide >VT 
rez directement avec la touche 'EN 
TERS" 

320 LOCATE 1,12:PR1NT"- Si toutefoi >TV 
s vous faites une erreur de frappe 
notez la il vous sera possi" 

330 LOCATE 1,13:PRINT" ble de la r >LZ 
ectifier en demandant le chapitre c 
orrection et mise a jour." 

340 LOCATE 1,14:PR INT"- Vous pouvez >DA 
traiter par annee un maiimum de 10 
0 timbres differents." 

350 LOCATE 1.15:PRINT"- Pour faire >YP 
la récapitulation de votre collecti 
on sélectionnez l'option no 8" 

360 LOCATE 1.16:PRINT" .A la place >FT 
d’un numéro de timbre vous entrere 
z une annee ou un type." 

370 LOCATE 1,17:PRINT"- EXEMPLE : 19 >VZ 
00 OU AERIENS" 

380 LOCATE 1,18:PRINT*- Il faudra s >HE 
auvegarder votre fichier avant de p 
asser au bilan de votre collée t 
ion car il sera détruit." 

390 LOCATE 1.20:PRINT"- Attention a >HG 
l'option fin de traitement car vot 






re fichier en cours sera détruit e 
t l'ordinateur se réinitialisera.' 
400 sui> : *- Frappez une touche pour 
continuer -* 

410 LOCATE 22.25 : PR I MT sui» 

420 REH ♦♦♦♦♦♦♦ 

430 REH HUSI QUE 
440 REH ++++♦♦♦ 

450 REAO a 

460 1F a=-l THEN RESTORE:GOTO 450 
470 SOUND l,a«0.8,20,15,15,15 
460 SOUND 2,a>0.8,19.5,10,13,13 
490 DATA 119.0,119.0,119,0,119,0,13 
4,0,150,0,150,0,159,0,179,0,179,0,1 
50,0,119,0,89,0,89,0,89,0,89,0,100, 
0,113,0,113,0,119,0,134,0,134,0,119 
,0,113,0,119,0,113,0,119,0,95,0 
500 DATA 113,0,119,0,119,0,134,0,15 
0,0,150,0,159,0,179,0,159,0,159,0,1 
59,0,159,0,150,0,159,0,179,0,179,0, 
179,0,179,179,179,179,179,0,0,0 
510 DATA 142,0,142,0,142,0,142,0,15 
9,0,179,0,179,0,190,0,190,0,190,0,2 
01,0,190,0,106,0,106,0,106,0,106,0, 
95,0,106,0,119,0,119,0,119,0,119,0, 
106,0,95,0,69,0,89,0,89,0,89,0,95,0 
,100,0,106,0,106,0,106,0,106,0 
520 DATA 119,0,134.0,142,0,142,0,14 
2,0,142,0,134,0,159,0,179,0,179,0,1 



>FD 

>NJ 

>101 

>LU 

>KK 

>JE 

>AQ 

>VH 

>IQ 

>ZN 


>YT 


>HU 


>VX 


79,0,179,179,179,179,179,179,179,-1 

,0 

530 A>= 1NKEY$ : 1F Al=" THEN 450 ELS >EE 
E 540 

540 CALL ABCB6 >PA 
550 CLS >UE 
560 REH ♦♦♦♦♦+♦+♦++♦♦♦+♦ >PP 
570 REH DESSIN DU TIHBRE >TF 
580 REH ♦+++♦+♦+++++♦♦♦♦ >PR 
590 FOR A=1 TO 360 >LN 
600 PLOT 288,232 >CK 
610 DEG >RD 
620 PLOT 288+79»C0S(A),232+79*SIN(A >DH 
) 

630 NEXT A >HK 
640 FOR A=1 TO 360 STEP 8 >QZ 
650 PLOT 288,232 >DE 


660 DEG >RJ 


670 PLOT 288*74+COS ( A),232+74+SIN(A >DC 

) 

680 PLOT 288+73»C0S(A),232*73»SlN(A >DB 

) 

690 NEXT A >NF 

700 FOR A-2 TO 360 STEP 8 >QX 

710 PLOT 288,232 >DB 

720 DEG >RF 

730 PLOT 288+74*C0S(A),232+74»SIN(A >DZ 

) 

I 740 NEXT A >NB 


750 FOR A=2 TO 360 STEP 8 
760 PLOT 288,232 
770 DEG 

780 PLOT 288+73*C0S(A),232+73*SIN(A 
) 

790 NEXT A 

800 LOCATE 28,5:PR INT'. EMPIRE . FR 
ANC .'îLOCATE 28,17:PRINT\4O.C.P0S 
TES.40.C." 

810 PLOT 190,120:DRAU 190,344:DRAW 
386,344:DRAW 386,120:DRAU 190,120 
820 PLOT 194,124 : DRAW 194,340:DRAy 
382,340:DRAW 382,124:DRAW 194.124 
830 PLOT 194,146:DRAU 382,146.PL0T 
195,318:DRAW 382,318 
840 PLOT 216,124 : DRAW 216,198:PL0T 
359,126:DRAU 359,196 
850 PLOT 216,266:DRAU 216,339:PL0T 
361,265 : DR AU 361,339 
860 PLOT 206,137:PLOT 207,138:PL0T 
208,139:PLOT 209,140:PL0T 205,136:P 
LOT 204,135:PLOT 203,134:PL0T 202,1 
33:PLOT 204,137:PL0T 203,138:PL0T 2 
02,139:PLOT 201,140:PL0T 206,135:PL 
OT 207,134 : PLOT 208,133:PL0T 209,13 
2 

870 PLOT 206,329:PLOT 207,330:PLOT 
208,331:PLOT 209,332:PL0T 204,327:P 
LOT 203,326:PL0T 202,325:PL0T 201,3 


>QC 

>DG 

>TA 

>DC 

>NG 

>LN 


>NM 

>NX 

>YZ 

>YB 

>YV 

>BV 


>BA 


r 
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VIA AIR MAIL 


930 PLOT 367,308:DRAW 367,298:PLOT >CL 
367,288 : DRAW 367,278:PL0T 367,268:D 
RAM 367,258:PLOT 367,248:DRAM 367,2 



24:PLOT 204,329:PL0T 203,330:PLÛT 2 
02,331:PLOT 201,332:PL0T 206,327:PL 
OT 207,326:PLOT 208,325:PL0T 209,32 
4 

880 PLOT 372,137:PLOT 373,138:PL0T >TR 
374,139 : PLOT 375.140:PL0T 370,135:P 
LOT 369,134 : PLOT 368,133:PL0T 370,1 
37 : PLOT 369,138:PL0T 368,139:PL0T 3 
67,140:PLOT 372,135:PL0T 373,134:PL 
OT 374.133-.PL0T 375,132 
890 PLOT 373,329:PLOT 374,330:PLOT >CV 


38:PLOT 367.228:DRAM 367,218:PL0T 3 
67,208:DRAM 367,198.-PL0T 367,188:DR 
AM 367,178:PL0T 367,168:DRAM 367,15 
8 

940 PLOT 199,306:ORAU 209.308:PL0T >BE 
199,298:DRAM 209.298:PL0T 199,288:0 
RAM 209,288:PLOT 199,278:DRAM 209,2 
78:PLOJ 199,268 : DRAW 209,268:PLÛT 1 
99,258:DRAM 209,258:PL0T 199,248:DR 
AM 2O9,248:PL0T 199.238.-DBAU 209,23 
8:PLOT 199,228:DRAM 209,228 
950 PLOT 199,218:DRAM 209,218:PLOT >KH 
199,208:DRAM 209.208:PL0T 199,198:0 
RAM 209,198:PLOT 199,188:DRAM 209,1 
88:PLOT 199,178:DRAM 209,178.PL0T 1 
99,168:DRAU 209,168:PL0T 199,158:DR 
AM 209,158 

960 PLOT 367,308:DRAM 377,308:PLOT >CC 
367.298:DRAU 377.298:PL0T 367,288:D 
j RAM 377,288:PLOT 367,278:DRAM 377,2 


'"S 



375,331:PLOT 376,332:PL0T 371,327:P 
LOT 370,326:PLOT 369,325:PL0T 368,3 
24:PLOT 371,329:PL0T 370,330:PLÜT 3 
69,331:PLOT 368,332:PL0T 373,327:PL 
OT 374,326 : PLOT 375,325:PL0T 376,32 
4 

900 PLOT 199,318 : DRAM 199,308:PLÛT >CK 
199,298 : DRAM 199,288:PL0T 199,278:D 
RAM 199,268:PLOT 199,258:DRAM 199,2 
48:PLOT 199,238:DRAM 199,228:PLOT 1 
99,218 : DRAW 199,208:PL0T 199,198 : DR 
AM 199,188 : PLOT 199,178:DRAM 199,16 
8:PLOT 199,158:DRAM 199,148 
910 PLOT 377,318:DRAM 377,308:PLQT >CX 
377,298:DRAM 377,288:PL0T 377,278:D 
RAM 377,268:PL0T 377,258:DRAM 377,2 
48:PLOT 377,238:DRAM 377,228:PLOT 3 
77,218:DRAW 377,208:PLOT 377,198:DR 
AM 377,188:PLOT 377,178:DRAM 377,16 
8:PLOT 377,158:DRAM 377,148 
920 PLOT 209,308:DRAM 209,298:PL0T >BG 
209,288:DRAM 209,27B:PLOT 209,266:0 
RAM 209,258:PL0T 209,248:DRAW 209,2 
38 : PLOT 209,228:DRAM 209,218:PLOT 2 
09,208:DRAM 209,198:PL0T 209,188:DR 
AM 209,178 : PLOT 209,168:DRAM 209,15 
8 


78:PLOT 367,268:DRAM 377,26B:PL0T 3 
67,258:DRAM 377,258:PL0T 367,248:DR 
AM 377,248:PLOT 367,238:DRAM 377,23 
8:PLOT 367,228:DRAM 377,228 
970 PLOT 367,218:ORAU 377,218:PL0T >KX 
367,208:DRAM 377,208:PL0T 367,198:D 
RAM 377,198:PLOT 367,188:DRAM 377,1 
88:PLOT 367,178:DRAM 377,178:PL0T 3 
67,168:DRAM 377,168:PL0T 367,158:DR 


AM 377,158 

980 PLOT 288,298 >FC ' 

990 LOCATE 20,25:PRINT suit >MM 

1000 CALL ABB18 >TH 

1010 IF vc=13 THEN 1140 >PP 

1020 CLS >ZC 


1030 1NPUT*- TRAVAILLEZ-VOUS SUR CA >HG 
SSETTES OU SUR DISQUETTES (C/D) :", 
tcdt 

1040 IF tcdt="C* OR tcdl="c" THEN ù >TD 
TAPE ELSE ùDISC 

1050 nt=100 >TH 

1060 DIM n(nt) >PK 


1070 DIM tt(nt) 


>MH 

1080 DIX a(nt) 

rlj 

>NJ 

1090 DIX o(nt) '■BË& 

Sl. 

>QD 

1100 DIX c(nt) 'fÊBL 


>ND 

1110 DIX z(nt) iïfrjj 

M 1 

>QH 

1120 z-1 JJtftf 

? «yWl 

>MH 

1130 n-1 JPgh 

y il 

>VG 

1140 cls 

m 

>ZF 

1150 MODE 2 


>PD 

1160 LOCATE 32,4:PRINT STRING$(15," 

lit 

>FR 

t / 

1170 LOCATE 32,6 : PR 1 NT STR 1NG$(15, " 

lit 

>FV 

» I 

1180 LOCATE 23,8:PR INT" 

- saisie des 

>HC 


données - 1 

1190 LOCATE 23,9:PRINT"- Insertion >KJ 
de tiibres - 2 

1200 LOCATE 23,10:PRINT*- suppressl >NZ 
on de tiibres - 3 

1210 LOCATE 23,11:PRINT"- correctio >PC 
n et aise a jour - 4 
1220 LOCATE 23,12:PRINT"- classeaen >MR 
t du fichier - 5 

1230 LOCATE 23,13:PRINT*- liste >AB 

- 6 

1240 LOCATE 23,14:PRINT'- sauvegard >HG 

e d'un fichier - 7 

1250 LOCATE 23,15:PRINT«- chargeaen >HA 

t d'un fichier - 8 

1260 LOCATE 23,16:PR1NT’- iipriier >KN 

le fichier - 9 

1270 IF ia$=" XENU (annuel)" THEN 1 >QM 

280 ELSE 1300 

1280 LOCATE 23,17:PRINT*- bilan de >QU 
votre collection - 10 -* 

1290 GOTO 1310 >HE 

1300 LOCATE 23,17:PRINT"- retour au >QE 

■enu principal - 10 -* 

1310 LOCATE 23,18:PRINT"- catalogue >KH 
(DISQUETTES) - 11 
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FlilW * 25 


1320 LOCATE 23,19:PRINT"- réajusté» >PU 

ent des cotes - 12 

1330 LOCATE 23,20 : PB I HT"- présentât >HQ 

Ion - 13 

13*0 LOCATE 23,21:PBINT"- (In de tr >KT 

aiteaent - 1* -" 

1350 F08 u=l TO 200:NEXT >80 

1360 LOCATE 32,5:PBINT aa» >UB 

1370 LOCATE 23,25:INPUT"- V0T8E CHO >IM 
IX (1 a 1*) ",wc:PR INT CHR1 

(7) 

1380 ON vc GOTO 1390,1810,4900,2750 >JH 
, 5520,1810,4000, *300, *560,5150.57*0 
,5830,210.3950 

1390 CLS >AC 

1400 tn=0:tob=0:tc=0 >PV 

1410 LOCATE 1,5:PR INT ex* >UV 

1420 LOCATE 1,2:PRINT apq$;:INPUT;u >DQ 
*: IF tcd*="D" 08 tcd*="d" THEN 1430 
ELSE 1*40 

1430 1F LEN(vt>>6 THEN 1450 aSE 14 >Bfl 
80 

1440 IF LEN(w»)>U THEN 1460 ELSE 1 >CB 
480 

1*50 LOCATE 1,7:PBINT"- 8 Lettres ■ >UZ 
axiaua pour le noa du fichier !":GÛ 
TO 1470 

1460 LOCATE 1,7:PR1NT"- 11 Lettres >GG 
■axiaua pour le noa du fichier !" 

1470 FOB u=l TO 2500:NEXT w:GOTO 13 >DN 
90 

1480 IF LEFT*(«*,1)="" THEN 1490 EL >FP 
SE 1510 

1490 LOCATE 1,7 : PHI NT'- Un noa de f >0L 
Ichier est OBLIGATOIRE veuillez en 
donner un s v p !" 

1500 FOR w=l TO 2500 :NEXT w:GOTO 13 >0G 
90 

1510 IF LEFT*(apq*,l>="«" THEN 1540 >AD 

1520 LOCATE 1,7:PRINT:INPUT"- CONBI >TH 
EN DE TIMBRES SONT PARUS DANS L’ANN 

EE. \t 

1530 LOCATE 1,9:PRINT:INPUT"- POUR >QB 
UNE COTE TOTALE DE . 


1540 P81NT CHR*(24) >NP 
1550 LOCATE 1,11:PRINT:INPUT"» CONF >RX 
IRMEZ-VOUS CES DONNEES :",d* 

1560 PRINT CHR*(24) >NR 
1570 IF d*="N" OR d*="n" THEN 1580 >GT 
ELSE 1810 

1580 CLS >AD 


1590 REM ♦♦♦♦♦♦♦♦♦♦♦«♦♦♦♦•mm >VR 

1600 REN C 0 N F I R N A T t 0 N >TR 

1610 REH ♦♦♦♦♦♦♦♦♦♦«♦♦♦♦♦♦♦♦♦♦♦ >VJ 

1620 IF lp»=pl$ THEN 1740 >BC 

1630 LOCATE 1,1:PR INT lp* >UU 

1640 LOCATE 1,3:PRINT"- LE NOMBRE D >YU 
E TIMBRES (T) -* 

1650 LOCATE 1,5:PR INT"- LE TOTAL CO >«M 
TES (C) -* 

1660 LOCATE 1,8:INPUT"- QUE VOULEZ- >ED 
VOUS CORRIGER :",col 
1670 IF co»=" THEN 1810 >QU 

1680 IF col="p" OR co*="P" THEN 171 >AV 

0 

1690 IF co»="t" OR co*="T" THEN 175 >BB 
0 

1700 IF co*="c" OR co*="C" THEN 178 >AT 
0 

1710 PRINT:INPUT’- NOUVEAU PAYS OU >HT 
ANNE A TRAITER :",py* 

1720 w*=py» >«C 

1730 GOTO 1540 >NJ 

1740 CLS:PR INT:INPUT"- NOUVEAU PAYS >LC 

OU TYPE A TRAITER :",py* :w»=py»:G 
OTO 1810 

1750 PRINT:INPUT"- NOUVEAU NOMBRE D >ZH 
E TIMBRES :*,nn 

1760 t=nn >JH : 

1770 GOTO 1540 >NC 

1780 PRINT:INPUT"- NOUVEAU TOTAL CO >VY 

TES :",nz 

1790 co=nz >UE 

1800 GOTO 1540 >MG 

1810 CLS >ZK 1 

1820 REM >ET 

1830 REM D E S S I N DU T A B >VD 

L E A U 

| 1840 REM >EV ; 

I 4444444 

1850 PLOT 5,20:DRAU 5,390:DRAV 630, >DX 
390:DRAW 630,20:DRAV 5,20 
1860 PLOT 5,360: DRAW 630,360:PLOT 5 >HH 
,330:DRAW 630,330:PL0T 156,20 
1870 DRAW 156,390:PLOT 312.20:DRAV >HZ 
312,390:PLOT 468,20:DRAV 468,390 
1880 PLOT 4,18:D8AV 4, 392: DRAW 631, >DB 
392:DRAW 631,18:DRAU 4,18 
1890 PLOT 3,18:DRAW 3,392:DRAV 632, >DB 
392:DRAW 632,18:DRAV 3,18 
1900 PLOT 5,362:DRAU 630,362:PL0T 1 >MU 
57,362:DBAU 157,39O:PL0T 313,362 
1910 DRAH 313,390: PLOT 469,362:DRAV >PC 
469,390:PLOT 155,362:D8AV 155,390 
17 


1920 PLOT 3U,362:DRAW 311,390:PLOT >ZM 


467,362:DRAW 467,390 
1930 PRINT CHR*(24) >NT 

1940 LOCATE 4,2 >XF 

1950 PRINT UPPER*<»*> >QK 

1960 PRINT CHRK24) >NV 

1970 LOCATE 22,2 >EC 

1980 PRINT "total neufs:_" >EP 

1990 LOCATE 42,2 >EG 

2000 PRINT "total oblit:_" >EP 

2010 LOCATE 61,2 >DB 

2020 PRINT "cotes:_F’ >EH 

2030 LOCATE 4.4 >VJ 

2040 PRINT ab» >TB 

2050 LOCATE 22,4 >DE 

2060 PRINT "tiabres neufs" >AC 

2070 LOCATE 42,4 >DJ 

2080 PRINT "tiabres obilt" >AH 

2090 LOCATE 61,4 >EB 

2100 PRINT "cote Y & T" >TJ 

2110 1F 1=18 THEN 3620 >NB 

2120 IF vc=6 OR vc=8 THEN 3620 >VY 


2130 REM 44444444444444444444444444 >YQ 
2140 REH ENTREE DU NUHERO DU TIMBRE >DJ 
2150 REM 44444444444444444444444444 >YT 
2160 IF vc=2 THEN n=n+l:i=2:G0T0 22 >DM 


20 

2170 n=0 >VA 
2180 z=l >XE 
2190 1=1 >VJ 
2200 n=n*l >KF 
2210 i=i+l >JG 
2220 WINDOU *1,2,80,25,25 >8G 
2230 PRINT *l,cd*;:INPUT *l,t*(n) >AT 
2240 CLS 11 >LC 


2250 IF RlGHT*(t*(n),l)>=CHR*(65) T >JX 
HEN 2300 

2260 IF LEN(tl(n))=l THEN t*(n)=’00 >JB 
0"U*(n) 

2270 IF LEN(t*(n))=2 THEN t*(n)="00 >HN 
•♦t*(n) 

2280 IF LEN(t*(n))=3 THEN t*(n)="0" >GB 
4t*(n) 

2290 GOTO 2330 >MJ 

2300 IF LENltl(n))=2 THEN t*(n)="00 >HF 
O'HKn) 

2310 IF LEN(t$(n))=3 THEN t*(n)="00 >HJ 
•H*(n) 

2320 IF LEN(t*(n))=4 THEN t»(n)="0" >GX 
♦t*(n) 

2330 HINDOU *3,2,18,6,23 >RE 

2340 IF t»(n)=" THEN n=n-l:GOTO 11 >CH 
40 






2350 LOCATE I3,3,1:PRINT I3,t»(n> >AA 
2360 z=z+l >NG 

2370 REH 44444444444444444444 >UP 

2380 REM ENTREE TIMBRES NEUFS >YR 
2390 REM 44444444444444444444 >UR 
2400 ef»="TIMBRES NEUFS’ >UC 

2410 LOCATE 2,25 >DF 

2420 PRINT ef»;:INPUT;a(n) >VH 

2430 UINDOU 14,21,37,6,23 >TE 

2440 LOCATE #4,22,i-l:PRINT »4,a(n) >BL 
2450 tn=tn4a(n) >FA 

2460 LOCATE 34,2:PR I NT ;tn >VC 

2470 REM >XN 

2480 REM ENTREE TIMBRES OBLITERES >DH 

2490 REM 444444444444444444444444 >ÏQ 

2500 gh»="TIMBRES OBLITERES" >YK 

2510 U INDOU 12,2,80,25,25 >TB 

2520 PRINT #2.gh$;:INPUT »2,o(n) >ZJ 
2530 CLS «2 >LF 

2540 UINDOU 45,41,58,6,23 >TN 

2550 LOCATE «5,42,i-l:PRINT #5,o(n) >BH 
2560 tob=tob+o(n) >MH 

2570 LOCATE 53,2 :PRINT ;tob >UY 

2580 REM ***************** >RD 

2590 REM ENTREE DE U COTE >UY 

2600 REM 44444444444444444 >QE 

2610 lj»="COTE TOTALE* >RD 

2620 LOCATE 2,25 >DJ 

2630 PRINT 1j#;:INPUT;c(n) >UX 

2640 UINDOU #6.60,75,6,23 >TQ 

2650 LOCATE #6,62,i-l:PRIHT #6,USIN >TE 
G"lll#l.#l";c(n) 

2660 tc=tc+c(n) >DD 

2670 LOCATE 67,2:PRINT USINGMIII#. >HT 

il"; te 

2680 IF 1=18 THEN GOTO 2700 >UV 

2690 GOTO 2200 >HJ 

2700 CLS 13 >LF 

2710 CLS 14 >LH 

2720 CLS 15 >LK 

2730 CLS >6 >HB 

2740 GOTO 2190 >NC 

2750 CLS >AD 

2760 REM 44444444444444444444444444 >YA 

2770 REM MISE A JOUR ET CORRECTIONS >D0 

2780 REM 44444444444444444444444444 >YC 

2790 qr$="- VOULEZ-VOUS CHANGER LE >LD 
NUMERO DU TIMBRE : 1" 

2800 *n»=" NUMERO " >NV 

2810 st»="- NOUVEAU NUMERO DE TIMBR >HN 
E » 

2820 CLS >AB 

2840 PRINT kl»;:INPUT;tn» >VE 

2850 CLS >AE 


2860 IF tn#=” THEN GOTO 1140 >VJ 

2870 p=0 >UK 

2880 FOR n=l TO z-1 >MA 

2890 IF tn»=t»(n) THEN p=n >UM 

2900 NEIT n >UB 

2910 IF p=0 THEN GOTO 3100 >TN 

2920 PRINT CHR»(24) >NT 

2930 LOCATE 3,1:PR INT in) >UZ 

2940 PRINT CHRK24) * >NV 

2950 LOCATE 3,3:PRINT;t»(p) >UE 

2960 PRINT CHRK24) >NX 

2970 LOCATE 18,1:PR INT" NEUFS " >ZH 

2980 PRINT CHRII24) >NZ 

2990 LOCATE 18.3:PRINT;a(p) >UH 

3000 PRINT CHR»(24) >NG 

3010 LOCATE 33,lîPRIHT" OBLIT " >ZG 

3020 PRINT CHRt(24) >NJ 

3030 LOCATE 33,3:PRINT;o(p) >UE 

3040 PRINT CHRN24) >NL 

3050 LOCATE 48.1.-PRINT" COTE " >YG 

3060 PRINT CHR#(24) >NN 

3070 LOCATE 48.3:PRINT;c(p) >UC 

3080 GOTO 3130 >NF 

3090 PR INT:PR INT >MV 

3100 CLS:PR1 NT op( >NA 

3110 FOR w=1 TO 2000:NEXT w >UK 

3120 GOTO 2750 >MH 

3130 PRINT >VG 

3140 LOCATE 1,7:PRINT qr» >UF 

3150 LOCATE 1,9:PRINT"- . >YU 

.TOTAL NEUFS : 

« 2 ** 

3160 LOCATE l.llîPRINT"- . >ZE 

.OBLITERES : 

*3"" 

3170 LOCATE 1,13:PRINT"- . >XL 

.COTE : 

»4»« 

| 3180 LOCATE 1,16:PRINT:INPUT" 

ES VOTRE CHOIX 1 a 4 
■;z» 

3190 IF z»=" THEN GOTO 1140 
3200 IF z»="l" THEN GOTO 3240 
3210 IF z»="2" THEN GOTO 3350 
3220 1F z*="3* THEN GOTO 3420 
3230 IF z»="4" THEN GOTO 3490 
3240 LOCATE 1,20:PRINT st»;:lNPUT;y >FU 
» 

3250 IF RIGHT»(y»,l)>=CHR»(65) THEN >FC 
3300 

3260 IF LEN(y»)=l THEN y»="000"4y» >ZD 

3270 IF LEN(y<>=2 THEN y*="00"4y» >ZR 

3280 IF LENI y»)=3 THEN y»=»0*4y» >YP 
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FAIT >CU 


>UH 

>VA 

>VE 

>VE 

>VP 


3290 GOTO 3330 >NA 

3300 IF LEN(y»)=2 THEN y»="000"4y* >ZZ 

3310 IF LEN(yi)=3 THEN y*="00"4y$ >ZM 

3320 IF LEN(y*)=4 THEN y»="0’4y» >YK 

3330 t»(p)=y» >GE 

3340 GOTO 2750 >NB 

3350 LOCATE 1,20:PRINT:INPUT*- NOUV >KU 

EAU TOTAL NEUFS ";ca 
3360 «=a(p)-ca >TG 

3370 a(p)=ca >AH 

3380 IF a(p)>ca THEN GOTO 3390 >UN 

3390 tn=tn-i >LJ 

3400 GOTO 2750 >MJ 

3410 CLS >ZH 

3420 LOCATE 1,20:PRINT:INPUT*- NOUV >JA 

EAU TOTAL OBLITERES";co 
3430 y=o(p)-co >UD 

3440 o(p)=co >DD 

3450 IF olpDco THEN GOTO 3460 >IF 

3460 tob=tob-y >DJ 

3470 GOTO 2750 >NF 

3480 CLS >AE 

3490 LOCATE 1,20:PRINT:INPUT"- NOUV >VG 

ELLE COTE",-ce 

3500 ab=c(p)-cc >ZE 

3510 c(p)=cc >AH 

3520 IF c(p))cc THEN GOTO 3530 >UJ 

3530 tc=tc-ab >PJ 

3540 GOTO 2750 >ND 

3550 tn=tn-a(p) - >FG 

3560 tob=tob-o(p) W L >MN 

3570 tc=tc-c(p) rtjrjj, y >DJ 

3580 a(p)=0 A >QE 

3590 olp)=0 JÆ. >RK 

3600 c(p)=0 >PK 

3610 GOTO 2750 >NB 

3620 REM 44444444444444 >ND 

3630 REM LISTE COMPLETE >TU 

3640 REM 44444444444444 >NF 

3650 cd=co-tc >QA 

3660 u=tn4tob >VD 

3670 t«=t-u >BF 

3680 IF t=0 THEN ti=t >PX 

3690 IF co=0 THEN cd=co >QT 

3700 LOCATE 34,2:PRINT tn >UV 

3710 LOCATE 53,2:PR INT tob >VP 

3720 LOCATE 67,2:PRINT USING*»III». >HP 

##" ; te 

3730 IF lp*=pl» THEN 3760 >RL 

3740 LOCATE 2,25 :PR INT"TIMBRES HANQ >UC 
UANTS :*;t« 

3750 LOCATE 40,25 : PR 1NT-POUR UNE CO >TM 
TE DE :";cd 








3760 U INDOU 17,1,80.6,25 
3770 IF 1=18 THEN 3790 
3780 n=0 

3799 ÎM 

3800 n=n+l 
3810 i=i+l 

3820 IF t$(n)=" THEN n=n-l:GOTO 39 
10 

3830 LOCATE *7.3.1:PR1NT t7,tt(n) 
3840 LOCATE #7.22.i: PR 1 NT I7,a(n) 
3850 LOCATE 17,42.i:PRINT »7.o(n) 
3860 LOCATE *7.62. i.-PRINT I7,c(n) 
3870 IF 1-18 THEN 3890 
3880 GOTO 3800 

3890 a*= 1NKEY*: IF at="" THEN 3890 E 
LSE 3900 

3900 CLS 17:UINDOU *7.1.80.6.25:GOT 
0 1810 

3910 a*=INKEY*: 1F a$="" THEN 3910 E 
LSE 1140 

3920 REH ♦♦+++♦♦+++♦♦♦♦♦♦+++ 

3930 REH SORTIE DU PROGRAHHE 
3940 REH ++♦♦+♦+++♦+++♦♦♦+♦♦ 

3950 CLS:INPUT"- AVEZ-VOUS SAUVEGAR 
DE VOTRE FICHIER :",av» 

3960 IF avt="N" OR avt="n" THEN 400 
0 

3970 CLS:INPUT"- ETES-VOUS SUR DE V 
OULOIR QUITTER LE PROGRAHHE (0 / N) 

3980 IF qlpt="0" OR qlp$="o" THEN 3 
990 ELSE 10 
3990 CALL fcO 
4000 CLS 

4010 REH ♦+♦♦♦♦♦♦++ 

4020 REH SAUVEGARDE 
4030 REH ♦+♦♦♦♦♦♦♦♦ 

4040 CLS: PR I NT : PR I NT*- PATIENTEZ SA 
UVEGARDE DE VOTRE FICHIER ET SUPPRE 
SSION DES FICHIERS .BAK." 

4050 PR INT". 


4060 OPENOUT ut 
4070 PR INT 19, ut 
4080 PRINT *9.det 
4090 PRINT 19,z 
4100 PRINT »9,tn 
4110 PRINT 19,tob 
4120 PRINT 49,te 
4130 PRINT 19. ta 
4140 PRINT 19.cd 
4150 PRINT 19,t 



>RT 

>PQ 

>UJ 

>VF 

>LC 

>KD 

>CV 

>AN 

>AG 

>AA 

>AQ 

>PT 

>NH 

>HR 

>GY 

>HV 

>TX 

>IF 

>TZ 

>JG 

>AA 

>NH 


>LF 

>VG 

>ZD 

>U 

>PZ 

>LL 

>UQ 


>HF 


>GB 

>FK 

>LD 

>BC 

>LN 

>LF 

>LD 

>LQ 

>GK 

>AD 



4160 PRINT 19.co >LC 
4170 FOR n=l TO z-1 >HU 
4180 PRINT «9.tt(n) >HZ 
4190 PRINT *9,a(n) >HV 
4200 PRINT »9,o(n) >HB 
4210 PRINT #9,c(n) >HP 
4220 NEXT n >VJ 
4230 CLOSEOUT >YK 


4240 REH ♦♦♦♦♦♦♦+♦♦♦♦*♦♦♦♦♦♦♦♦♦♦++♦ >BU 
♦*♦♦ 

4250 REH SUPPRESSION DES FICHIERS " >HG 
BAK’ 

4260 REH ++♦++♦+♦♦♦♦♦*♦♦♦♦+♦♦♦♦♦+♦♦ >BU 

444 + 

4270 fbt="«.bak" 

4280 ùERA.àfb* 

4290 GOTO 1140 
4300 CLS 

4310 REH 4444444444 

4320 REH CHARGEHENT >PT 

4330 REH 4444444444 >LP 

4340 CLS: PR I NT : INPUT’QUEL FICHIER D >PV 
ESIREZ-VOUS CHARGER :",ut 
4350 CLS:PR1 NT*- PATIENTEZ JE CHARG >FZ 
E LE FICHIER :":TAB(36): PR INT UPPER 


t(ut) 

4360 OPENIN ut >VD 
4370 INPUT »9,ut >GF 
4380 INPUT 19,det >HB 
4390 INPUT 19,z >BJ 
4400 INPUT »9,tn >LV 
4410 INPUT >9,tob >HD 
4420 INPUT 19,te >LK 
4430 INPUT 19, ta >LX 
4440 INPUT 19/cd >HF 
4450 INPUT 19,t >AK 
4460 INPUT 19.co >ü 
4470 FOR n=l TO z-1 >HX 
4480 INPUT I9,tt(n) >HF 
4490 INPUT I9,a(n) >HB 
4500 INPUT »9,o(n) >HH 
4510 INPUT I9,c(n) >HU 
4520 NEXT n >UB 
4530 CLOSE IN >HC 
4540 IF det=l THEN 5300 >QN 
4550 GOTO 1810 >NB 
4560 CLS >AE 
4570 REH ♦+♦++♦♦++♦ >LU 
4580 REH IHPRESSION >PY 
4590 REH ♦++♦♦♦♦+♦♦ >LY 


4600 PRINT"- VEUILLEZ PATIENTER JM >VP 
HPRIHE VOTRE FICHIER :";TAB(48):PRI 
NT UPPERt(ut) 


4610 UIDTH 77 >JC 

4620 IF co=0 THEN cd=0 >PN 

4630 1F t=0 THEN ta=0 >PD 

4640 PRINT »8, "♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦+ >RD 

4444444444444444444444" 

4650 PRINT t8 >JA 

4660 PRINT 18,"»";" ";UPPER$(u$) >ZN 

4670 PRINT »8 >JC 

4680 PRINT 18,"- TOTAL TIHBRES NEUF >UC 

S :*;tn 

4690 PRINT »8 >JE 

4700 PRINT *8,"- .OBLITERE >RP 

S : ";tob 

4710 PRINT »8 >HH 

4720 PRINT 18,"- .DES COTE >QK 

S : " : te 


4730 PRINT »8 >HK 

4740 PRINT 18,"TIHBRES HANQUANTS : >JG 

*!ta 

4750 PRINT «8 >JB 

4760 PRINT #8,"POUR UNE COTE DE : >HH 

■;cd 

4770 PRINT 18 >JD 

4780 PRINT 18,"♦♦♦♦♦♦♦♦♦♦m+mm >RJ 

| ♦♦♦♦♦♦♦♦♦♦♦♦♦+♦♦+♦♦♦♦♦++♦♦♦+♦♦♦♦+♦♦ 
♦♦+++♦+++♦++♦♦♦♦++++44" 

4790 PRINT 18 >JF 

4800 PRINT 18,"NUHERO ne >YB 

uts oblitérés cote 

«t 

4810 PRINT 18 >HJ 

4820 FOR n=l TO nt >LK 

4830 IF t*(n)="* THEN GOTO 4860 >XB 

4840 PRINT I8,tt(n),* ’;a(n)," >DL 

*;o(n)," ";c(n> 

4850 NEXT n >WH 

4860 FOR ligne=l TO 9 >PV 

4870 PRINT >8 >JE 

4880 NEXT >HB 

4890 GOTO 1140 >NE 

4900 CLS >AC 

4910 REH +♦++♦♦♦♦+♦+++♦♦+++♦++♦ >VT 

4920 REH SUPPRESSION DE TIHBRES >BV 

4930 REH ++++♦♦♦+♦++♦♦♦♦♦+♦+♦♦♦ >VV 


4940 PRINT"- DONNEZ UN NUHERO A 4 C >«C 
HIFFRES EX:(0001-0027-2356)":PH1MT 
4950 INPUT"- QUEL TIHBRE VOULEZ-VOU >EV 
S SUPPRIHER 1 ENTER POUR RETOURNER 
AU HENU S : ",tst 

4960 IF LEN(ts*) =0 THEN 1140 >VY 

4970 FOR n=l TO z-1 >HC 

4980 1F tt(n)=tst THEN 5050 >UF 
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4990 NEIT 
5000 CLS 

5010 PRINT STRING*(60."-•) 

5020 PRINT opt 

5030 PRINT STRINGX60,"-•) 

5040 FOR w=l TO 2OOO:NEn:G0TO 4900 
5050 tn=tn-a(n):tob=tob-o(n):tc=tc- 
c(n) 

5060 PRINT:PRINT*- VOTRE TIMBRE No 
: *;tl(n);" EST SUPPRIME .":FOR w=l 
TO 2000:NEIT 
5070 FOR 1=n TO z-1 
5080 t»(j)=t»(j*l) 

5090 a(j)=a(j+1) 

5100 o(J)=o(|U) 

5110 c<j)=c(1+l) 

5120 NEIT 
5130 z=z-l 
5140 CLS:GOTO 4950 
5150 CLS 

5160 IF «al;' MENU ( bilan )* THEN 
5170 ELSE 5270 
5170 CLEAR 

5180 PRINT"-... 


5190 PRINT"- VOTRE FICHIER EN COURS 
EST DETRUIT -" 

5200 PRINT"—.-.—. 


5210 FOR w=l TO 2000:NEXT 
5220 IF det-1 THEN CLS:GOTO 5300 
5230 GOTO 110 

5240 REM 44444444444444444444444444 

444444444 

5250 REM VARIABLES DU BILAN DE LA C 
OLLECTION 

5260 REM 44444444444444444444444444 
444444444 

5270 CLEAR 
5280 det=l 
5290 GOTO 5180 

5300 xe»="- EXEMPLE .-AERIENS (MAXIM 
UM 8 LETTRES POUR DISK 11 LETTRES P 
OUR CASSETTES)’ 

5310 aa»=" MENU ( bilan )" 

5320 p 1$="- LE PAYS OU LE TYPE (P 
) -" 

5330 dct="PAYS OU TYPE (ENTER) pour 
retourner au aenu" 

5340 ba$="pays ou type " 

5350 lk»="- QUEL PAYS OU TYPE RECHE 
RCHEZ-VOUS,(ENTER) POUR RETOURNER A 
U MENU" 



>ND 

>ZE 

>UJ 

>UA 

>UL 

>BD 

>JQ 

>QV 


■MU 

>LF 

>BA 

>DA 

>AH 

>KK 

>NG 

>MR 

>AA 

>QU 

>RE 

>PF 

>YU 

>PY 

>TY 

>ZG 

>EH 

>GN 

>MH 

>GQ 

>RF 

>NJ 

>NH 

>ZQ 


>VY 

>GH 

>KH 

>IQ 

>MT 


I 5360 poi="- VOUS NE POSSEDEZ PAS CE >MN 
PAYS OU CE TYPE DANS VOTRE COLLECT 
ION !!!" 

5370 rq*="- VOULEZ CHANGER LE PAYS >TT 
OU LE TYPE" 

5380 ts*="- NOUVEAU PAYS OU TYPE * >DT 
5390 qpa»="« QUEL PAYS OU TYPE DESI >AF 
REZ-VOUS TRAITER . 


| 5400 lp$=pl» 

5410 cd*=dc» 

5420 abl=ba$ 

5430 aa*=aat 
5440 kl»=lk4 
5450 op$=pot 
5460 qr$=rq$ 

5470 st$=ts* 

5480 apq$=qpa* 

5490 ext=xet 
5500 IF det=l THEN 1140 
j 5510 GOTO 1020 
5520 CLS 

I 5530 REM 444444444444444444444 

5540 REM CLASSEMENT DU FICHIER 

| 5550 REM 444444444444444444444 

5560 PRINT’- PATIENTEZ QUELQUES INS 
TANTS PENDANT LE CLASSEMENT DU Fl CH 
1ER -" 

5570 PKINT"======================== 


>CK 

>YJ 

>YB 

>AE 

>CD 

>EA 

>EK 

>FJ 

>XE 

>EA 

>QH 

>HB 

>AB 

>UV 

>ZG 

>ux 

>LG 


>FH 




5580 e=INT(n/2) >CG 
5590 RH ILE e>=l >BD 
5600 na=l >DG 
5610 «HILE na<=n-e >MA 
5620 nr=na >RK 


| 5630 IF tl(nr)>U(nr+e) THEN 5640 E >HB 
LSE 5680 

5640 y$=t$(nr):x=a(nr):y=o(nr):g=c( >HG 
i nr) 


5650 tl(nr)=tl(nr4e):a(nr)=a(nr4e): >LN 
o(nr)=o(nr+e):c(nr)=c(nr+e) 


5660 t$(nr+e)=y$:a(nr4e)=x:o(nr4e)= >R« 


! y:c(nr+e)=g 

5670 nr=nr-e:IF nr>=l THEN 5630 >YE 
5680 na=na 4 l )DD 
5690 «END >KE 
5700 e=INT(e/2) >BB 
5710 «END )JH 
5720 n=nr >JF 
5730 GOTO 1140 >MJ 
5740 CLS >AF 
5750 REM 4444444444444444444444 >V« 



5760 REM CATALOGUE DES FICHIERS 
5770 REM 4444444444444444444444 
5780 f11="».* 

5790 ùDIR.àfi* 

5800 PRINT:PRINT:PRINT"- FRAPPEZ UN 
E TOUCHE POUR RETOUR AU MENU -• 

5810 A*=INKEY»:IF A»=*" THEN 5810 
5820 CLS:GOTO 11 AO 
5830 CLS 

5840 REM 4444444444444444444444 

5850 REM REAJUSTEMENT DES COTES 
5860 REM 4444444444444444444444 
5870 PRINT CHR$(24) 

5880 LOCATE 5,1:PRINT"- REAJUSTEMEN 
T DES COTES DU FICHIER : ";:PRINT U 
PPER»(w») 

5890 PRINT CHRK24) 

5900 LOCATE 2,5:PRINT " TIMBRE No 
NEUF OBLITERE COTE" 
5910 LOCATE 2.6:PR INT " . 


5920 n=0 
; 5930 n=n4l 

5940 IF t»(n>=” THEN n=n-l:G0T0 60 
10 

5950 LOCATE 2,8:PRINT ;• ";t$(n); 

* *;a(n);" ";o < n):• 

";c(n) 

5960 «INDOU 11.1.30.11,12 

5970 LOCATE 3.11 :INPUT"- NOUVELLE C 

OTE : *,nc(n) 

5980 CLS 11 

5990 tc=tc-c(n):tc=tc4nc(n) 

6000 GOTO 5930 

6010 CLS.-PRINT:INPUT"- VOULEZ-VOUS 
SAUVEGARDER VOTRE FICHIER (0/N) :", 
vvs» 

6020 1F vvs$="0" OR vvs$="o" THEN 4 
000 ELSE 1140 


>AC 

>VY 

>AE 

>CH 

>IZ 

>ZP 

>MJ 

>AF 

>V« 

>AB 

>VY 

>NA 

>MH 


>NC 

>TD 

>JP 


>UG 

>U 

>CU 


>GX 


>RF 

>UE 

>MG 

>«Y 

>NA 

>HT 


>NJ 
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WlLLY 


Willy doit colorier les cases de 
son labyrinthe mais le temps et 
une méchante araignée sont 
contre lui. P^iabîe^pôür - ! 


10 REM ««itM»*»»»»»»»» >NL 
20 REM « INITIALISATION « /UD 
30 REM «»»*»***»••»»«»» >NN 
40 SYMBOL AFTER 200 /NB 


50 SYMBOL 200.0.63,127,127.123,117. /HA 
126,120 

60 SYMBOL 201.0,254,255.255,223.175 >HR 
,127,31 

70 SYMBOL 202,118,125,123,123.127.1 >KA 

27.127.63 

80 SYMBOL 203,111,191.223.223,255,2 >LB 

55.255.254 

90 a*=CHR*(200HCHR*(201)+CHR*(8)tC >RD 
HR*(8)+CHR*(10)*CHR» 1202)+CHR$(203 ) 

100 SYMBOL 204.0.63,127,127.127.127 >JC 
.127,127 

110 SYMBOL 205,0,254,255.255.255,25 >KL 
5,255,255 

120 SYMBOL 206.127.127,127.127.127, /LE 

127.127.63 

130 SYMBOL 207,255.255.255,255.255, /MP 

255.255.254 

140 b*=CHR*(204)+CHR*1205MCHR*(8)♦ >UD 
CHR*(8)+CHR*(10)+CHR*(206>+CHR*(207 

) 

150 SYMBOL 208,0,63,127,127,127.121 >JT 

, 112,112 

160 SYMBOL 209,0,254,255,255.255,63 >GE 
,31,31 


Sylvain GUILLOT 


MODE D'EMPLOI : 

- Déplacement : joystick ou touches flé¬ 
chées. 

—Sélection des options en pressant les 


| 170 SYMBOL 210,112.120.124,126.127, >LH 

127,127,63 

180 SYMBOL 211.31.63,127,255,255,25 >KP 

5.255.254 

190 cMCHR*(208)tCHR*(209)tCHR»(8)+ >UH 
CHR* (8) +CHR* (10> +CHR* (210) +CHR* <211 

) 

200 SYMBOL 212,0,63,64.79.80,83,84, >DD 
84 

: 210 SYMBOL 213,0,254,1,249,5,229,21 >ET 
.149 

220 SYMBOL 214,85,84.84.83,80.79,64 >EG 
.63 

2JO SYMBOL 215,65,149,21,229,5,240, >Fï 

1.254 

240 d* =CHR*(212)+CHR*(213)+CHR*(8 >♦ >UC 
CHR*(8)+CHR*(10)+CHR*(214)+CHR*(215 

) 

250 SYMBOL 216,0,63,127,127,127,126 >JA 
.124,120 

260 SYMBOL 217,0,254,255,255,63,127 >HA 
,255,31 

270 SYMBOL 218,127,126.124,121.127, >LA 

127,127,63 

280 SYMBOL 219,63,127,255,255,255.2 >LA 

55.255.254 

290 e*=CHR*(216)+CHR*(217)+CHR*(8)+ >UB 
CHR*(8)*CHR*(10)*CHR*(218)*CHR$(219 

I ) 


300 f*=CHR*l32)+CHR*(32)*CHRt(8)*CH >NC 
R» (8)+CHR*(10)tCHR*(32)+CHR*(32) 

310 SYMBOL 220,0,63,80,80.72,72,71. >CZ 
68 

320 SYMBOL 221.0.254.5.5,9.9,241,17 >BP 

330 SYMBOL 222.68,68,71,72.72,80,80 >DD 
.63 

340 SYMBOL 223.17,17,241,9,9.5.5.25 >CK 

4 

350 g*=CHR*(220) +CHR*1221 )+CHR*(8)■♦ >UD 
CHR*(8)+CHR*(10)+CHR* <222)+CHR*(223 

) 

360 SYMBOL 224.0,63,64,79,68.68,66. >DZ 
66 

370 SYMBOL 225.0,254,1,249,17,17.33 >DK 
,33 

380 SYMBOL 226.65,66,66,68.68,79.64 >EA 
.63 

390 SYMBOL 227.65,33,33.17.17.249,1 >EM 
.254 

400 h* =CHR*(224) +CHR*<225) +CHR*(8) + >UT 
CHR* ( 8 ) +CHR* ( 10) +CHR* ( 226 ) +CHR* ( 227 

) 

410 SYMBOL 228,0,63,127.127,124.112 /JT 
,114,112 

420 SYMBOL 229,0,254.255.255.63,15, >FB 
79.15 

430 SYMBOL 230,112,120.122.113,96,1 >KP 

26,127,63 

440 SYMBOL 231.15.31,79.143.7,127,2 >GL 

55,254 

450 i*=CHR*(228MCHR*(229) +CHR*(8)♦ >UX 
CHR*(8)+CHR*(10)+CHR* < 230)+CHR*(231 

) 


460 GOTO 3090 >FK 

470 REM >UH 

480 REM >UJ 

490 REM >UK 

500 MODE 1:RESTORE 3950:te«ps2=0:te >DZ 

■psl=0:INK 2,10:niveau=l:tableau=l: 
vie^Sjscore^îapp^O 

510 UINDOUIO.1.40,1,20 >QD 

520 U1NDOUt1,1,40,21,25 >RG 


530 PLOT 0,0,13:DRAU 0,78:DRAW 639, >AA 

78:DRAW 639,0:DRAU 0,0 

540 LOCATEi1.2,2 : PR 1NTI1.“VIE :";vi )EQ 

e 

550 LOCATEH. 20.2 : PR I NTi 1. "SCORE :" >U 
:score 

560 L0CATEI1.2, 4:PRINT»1,"TEMPS :" /CL 

570 REM HiittitiHtiitti >QF 

580 REM » DESSIN TABLEAUX « >VM 

590 REH iHiHHiiHitin >QH 


chiffres correspondants. 

- Les règles sont contenues dans le pro¬ 
gramme 

ASTUCES 

- A liez très doucement près des éclairs et des trous. 

-Attendez avant de prendre le sablier. 

- Prenez le cœur le plus tôt possible (avant de perdre). 

-Attention l’araignée accélère d’un niveau à l’autre. 

- Faire très attention à l’araignée. 

-Au besoin, si toutes ces petites astuces ne vous servent pas, modifier la ligne 500 en y 
mettant un maximum de vies. 
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600 K=l:y=l: INtC 2,15 >NG 
610 DIM dUO,25) >VK 
620 READ dalle >UC 
630 READ teips >AC 
640 READ q2 >TC 
650 READ w2 >TK 
660 READ arl >BB 
670 FOR n=l TO 16 >DG 
680 READ a >JK 


690 IF a=0 THEN LOCATE x,y:PRINT « >MM 
:d(*,y)=0 

700 IF a=l THEN PEN 13:L0CATE *.y:P >VM 
RINT b*:d( ï, y)=1 

710 IF a=2 THEN PEN 13:L0CATE *,y : P >VU 
RINT g»:d(x,y)=2 

720 IF a=3 THEN PEN 13:L0CATE x,y:P >VW 
RINT d$:d(x,y)=3 

730 IF a=4 THEN PEN 2:L0CATE i,y:PR >UB 
INT e>:d(x,y)=4 

740 IF a=9 THEN PEN 13:LOCATE x,y:P >VP 


RINT g$:d(x,y)=9 

750 x=x+2:NEIT n >LN 
760 x=l:y=y+2 >QC 
770 IF y=21 THEN 790 )HQ 
780 GOTO 670 >AE 
790 REH »»»«»*» >LH 
800 REH « TEMPS f >FC 
810 REM ««»»«*» >LA 
820 FOR n=l TO teips STEP 2 >UV 
830 PLOT 140*n.30,3:DRAW 140+n,17 >Zfl 
840 NEXT n >PF 
850 GOSUB 2880:GOTO 860 >RZ 
860 REM iiiftlinsofi >HV 
870 REM » DEPLACEMENT « >RF 
880 REM >MX 
890 q=9:y=l:ql=q:yl=y:q3=q2:y3=y2 >DX 


900 PEN 3:LOCATE q,w:PRINT i»:d(q,y >GD 
)=8 

910 IF 1NKEY(72) =0 OR 1NKEY(0)=0 TH >GP 
EN 960 'HAUT 

920 1F 1NKEY(73)=0 OR 1NKEY(2)=0 TH >HU 
EN 1010 'BAS 

930 IF INKEY(74)=0 OR 1NKEY(8)=0 TH >HH 
EN 1060 'GAUCHE 

940 IF INKEY(75)=0 OR INKEY<1)=0 TH >HY 
EN 1110 'DROITE 

950 GOSUB 1380:GOSUB 1790:G0SUB 201 >MR 
0:G0T0 900 

960 REM » HAUT » >VG 

970 y=y-2 >HB 

980 1F y=l OR y<l THEN y=l >TK 

990 IF d(q,w>=2 OR d(q,y)=9 THEN y= >DP 
y+2 


1000 GOTO 1180 >U 
1010 REM » BAS « >NG 
1020 y=y+2 >MD 
1030 IF y=19 OR v)19 THEN y=19 >UW 
1040 IF d(q,y)=2 OR d(q,y)=9 THEN v >EG 
=y-2 

1050 GOTO 1180 >HD 
1060 REM » GAUCHE « >LV 
1070 q=q-2 >LJ 
1080 IF q=l OR q<l THEN q=l >TG 
1090 JF d(q,y)=2 OR d(q,yl=9 THEN q )EX 
=q+2 * 

1100 GOTO.1180 >LK 
1110 REM « DROITE » >MK 
1120 q=q+2 >LC 
1130 IF q=31 OR q)31 THEN q=31 >NH 
1140 IF d(q,y)=2 OR d(q,y)=9 THEN q >EV 
=q-2 

1150 GOTO 1180 >HE 
1160 PEN 3:LOCATE ql.yl:PRINT bl:d( >AP 
ql,yl)=10:ql=q:yt=y 

1170 GOTO 900 >FD 
1180 REM *»»««» >LE 
1190 REM « TEST « >CH 
1200 REM iiiiii >kh 
1210 GOSUB 1790:GOSUB 2010 >UT 


1220 IF q=q2 AND y=y2 THEN 1460 ’io >Xtf 
rt 

1230 IF d(q,y)=6 THEN 1590 'prise d >TD 
'un coeur 

1240 IF d(q,y)=4 THEN 1500 ’iort >TT 

1250 IF d<q,y)=0 THEN 1500 ’»ort >TP 

1260 IF d(q,y)=7 THEN 1680 'prise d >TH 

'un sablier 

1270 IF d(q,y)=l THEN 1290 'dalles >TZ 


coloriées 

1280 GOSUB 1380:GOTO 1160 >TE 
1290 REM >RB 
1300 REM i DALLES COLORIEES » >«U 
1310 REM (immmxmxx* >ru 
1320 d(q,y)=8 >HC 
1330 dalle=dalle-1 >NF 
1340 score=score+l >NL 
1350 LOCATE*1,27,2: PB I NT#1. score >BJ 
1360 IF dalle=0 THEN 2450 >RX 
1370 GOTO 1280 >NK 
1380 REH itiiiiiiimxifoiiit >UU 
1390 REM « DIMINUTION DU TEMPS « >ZL 
1400 REM >UL 
1410 te*psl=te«psl+l >QU 


1420 IF te«psl=2 OR te«psl>2 THEN t >FP 
eips2=te«ps2+1 :te»psl=0 
1430 PLOT (140+teips)-teips2,30,0:D >HA 
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RAW (140+teips)-teips2,17 

1440 IF teips=teips2 OR teipstteips >QC 


2 THEN 1460 ’iort 

1450 RETURN >FD 
1460 REM «»«»*• >LF 
1470 REM » MORT « >DA 
1480 REH ••«•«» >LH 


1490 PEN 13:L0CATE q3,y3:PRINT b$:P >DA 
I EN 2:LOCATE q2,v2:PR!NT al:PEN 13:G 


OTO 1520 

1500 PEN 3:LOCATE ql,yl:PRINT bl >AH 

1510 PEN 13:LOCATE q,y :P81 NT il >ZM 

1520 FOR n=500 TO 1 STEP -20 >UE 

1530 SOUND 5,n,0.5,15 >PY 

1540 NEXT >LB 

1550 vie=vie-l >ZE 

1560 IF vie=0 THEN 3520 >0N 

1570 CLS >AC 

1580 appl-U:GUSUB 2500 >UU 

1590 REH >RE 

1600 REM « PRISE D’UN COEUR « >LH 

1610 REH >RX 

1620 vie=vie+1 >ZA 

1630 ENV 1,15,-1,10 >LT 

1640 ENT -1,10,4,1,1,-20,1 >RZ 

1650 SOUND 2,400,0,15,1,2 >RE 

1660 LOCATE*1,7,2:PRINT#l,yie >YU 

1670 GOTO 1290 >ND 

1680 REH «itiiiiiiiiiiitiitii >UT 

1690 REM « PRISE D’UN SABLIER • >LT 

1700 REM >UK 

1710 PEN 3:LOCATE ql,yl:PRINT b* >AL 

1720 LOCATE q,v:PRlNT 1$ >TL 

1730 teips2=(teips-teips2)+100:teip >QH 

s=teips2 

1740 SOUND 5,400,0,9,0,1 >RE 

1750 FOR n=l TO teips2 STEP 2 >WQ 

1760 PLOT 140+n,30,3:DRAW 140+n,17 >A« 

1770 NEXT >LG 

1780 teips2=0:teips1=0:GOTO 1290 >BT 

1790 REM >ng 

1800 REM i APPARITION • >RB 

1810 REM >BU 

1820 ch=CINT(RND(2)«10) >RK 

1830 IF ch=tableau OR ch>4 THEN 185 >BC 

0 ELSE appl=l:GOTO 1840 
1840 RETURN >p G 

1850 IF appl=0 THEN 1870 >QD 

1860 1F appl=l THEN RETURN >VX 

1870 app=CINT(RND(2)*10) >TB 

1880 IF app<2 THEN appl=l:G0T0 1910 >CB 

'apparition coeur 

1890 IF app>5 THEN appl=l:G0T0 1960 >CN 


'apparition sablier 

1900 RETURN >FD 

1910 REH »»»»«»»»»»»»»»**«»»»» >(JT 
1920 REH « APPARITION DU COEUR « >ZN 
1930 REH «»»«»»#m»*»»»#m»» >UV 

1940 PEN 13:L0CATE 31.19:PRINT c»:d >LQ 
(31,191=6 

1950 appl=l:RETURN >ND 

1960 REH i»»»»»»»»»»»»»»»»»»»»»» >WT 
1970 REH « APPARITION DU SABLIER « >BQ 
1980 REH HiiiKiiKiimiifiiii >UV 

1990 PEN 13:LOCATE 31.19:PRINT h»:d >LC 
(31,191=7 

2000 appl = 1 :RETURN >NP 

2010 REH iimiimii >HL j 

2020 REH « L'ARAIGNEE « >PF 

2030 REH mm»»»»#* >HN 

2040 tour=tour»l >HU 

2050 IF tour=arl THEN tour=0:G0T0 2 >FG 
070 

2060 RETURN >FB 

2070 ar=CINT(RND(2)»10) >RR 

2080 IF ar=l THEN q2=q2+2:G0T0 2130 >BZ 
'droite 

2090 IF ar=2 THEN q2=q2-2:G0T0 2190 >BK 
’gauche 

2100 IF ar=3 THEN w2=w2-2:G0T0 2250 >BH 
'haut 


2110 IF ar=4 THEN w2=v2+2:G0T0 2310 >BJ 
'bas 


2120 

RETURN 


>EJ 

2130 

IF 

q2=31 OR q2>31 1 

THEN q2=31 

>YC 

2140 

IF 

d(q2,w2)=4 THEN 

q2=q2-2 

>XJ 

2150 

IF 

d(q2,w2)=0 THEN 

q2=q2-2 

>XF 

2160 

IF 

d(q2,v2)=8 THEN 

1460 

>UK 

2170 

IF 

d(q2,w2)=2 THEN 

q2=q2-2 

>XK 

2180 

GOTO 2370 


>NA 

2190 

IF 

q2=l OR q2<1 THEN q2=l 

>UK 

2200 

IF 

d(q2,v2)=4 THEN 

q2=q2»2 

>ID 

2210 

1F 

d(q2,v2)=0 THEN 

q2=q2+2 

>XA 

2220 

IF 

d(q2,n2)=8 THEN 

1460 

>UG 

2230 

IF 

d(q2,w2> =2 THEN 

q2=q2+2 

>XE 

2240 

GOTO 2370 


>HH 

2250 

IF 

«2=1 OR w2<l THEN «2=1 

>VB 

2260 

IF 

d(q2,w2)=4 THEN 

w2=v2+2 

>XY 

2270 

IF 

d(q2,w2)=0 THEN 

v2=v2*2 

>XV 

2280 

IF 

d(q2,w2)=8 THEN 

1460 

>UN 

2290 

IF 

d(q2,w2l=2 THEN 

w2=w2*2 

>XZ 

2300 

GOTO 2370 


>HE 

2310 

IF 

w2=19 OR u2>19 THEN w2=19 

>YR 

2320 

IF 

d(q2,u2)=4 THEN 

w2=ti2-2 

>XX 

2330 

1F 

d(q2,w2> =0 THEN 

w2=w2-2 

>XU 

2340 

IF 

d(q2,w2)=8 THEN 

1460 

>UK 


2350 1F d(q2,w2)=2 THEN w2=w2-2 >XY 

2360 GOTO 2370 >NA 

2370 IF d(q3.u3)=1 THEN PEN 13 >«J 

2380 IF d(q3,w3> =9 THEN d(q3,w3)=l: >ZU 

dal 1 e = da 11 e+1 :PEN 13 
2390 IF d(q3,v3)=10 THEN PEN 3 >UG 
2400 IF d(q3,u3)=6 OR d(q3,w3>=7 TH >QT 
EN d(q3,w3)=l:dalle=dalIe+1 :PEN 13 
2410 LOCATE q3,W3:PRlNT b* >VX 

2420 PEN 2:LOCATE q2,w2:PRINT a$:q3 >NB 
=q2:»#3=w2 

2430 IF q2=q AND «2=u THEN 1460 >XA 

2440 RETURN >FD 

2450 REH »»»»»«»»« >FF 

2460 REH » TABLEAU « >HA 

2470 REH *»*««»*#* >FH 

2460 tabIeau= tabI eau*1 :GÛSUB 2960 >CH 

2490 score=score»(te«ps-teips2) >CB 

2500 CLS:ON niveau GOTO 2510,2570,2 >WN 

630,2690,2750,3880 

2510 REH » NIVEAU 1 » >HT 


2520 IF tableau=l THEN GOSUB 2810:R >PC 
ESTORE 3950 

2530 IF tableau=2 THEN GOSUB 2810:R >PR 
ESTORE 4100 

2540 IF tableau=3 THEN GOSUB 2810:R >PX 
ESTORE 4220 

2550 IF tableau=4 THEN GOSUB 2810:R >PC 
ESTORE 4340 

2560 ERASE d:GOTO 510 >PP 

2570 REH « NIVEAU 2 « >HA 

2580 IF tableau=l THEN GOSUB 2810:R >PJ 
ESTORE 4490 

2590 IF tableau=2 THEN GOSUB 2810:R >PE 
ESTORE 4610 

2600 1F tableau=3 THEN GOSUB 2810:R >PA 
ESTORE 4730 

2610 IF tableau=4 THEN GOSUB 2810:R >PF 
ESTORE 4850 

2620 ERASE d:GOTÜ 510 ;PL 

2630 REH « NIVEAU 3 » >HY 

2640 IF tableau=l THEN GOSUB 2810:R >PT 
ESTORE 5000 

2650 IF tableau=2 THEN GOSUB 2810:R >PY 
ESTORE 5120 

2660 IF tableau=3 THEN GOSUB 2810:R >PD 
ESTORE 5240 

2670 IF tableau=4 THEN GOSUB 2810:R >PJ 
ESTORE 5360 

2680 ERASE d:GOTO 510 >PT 

2690 REH * NIVEAU 4 » >HF 

2700 IF tableau=l THEN GOSUB 2810:R >PV 
ESTORE 5510 
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2710 IF tableau=2 THEN GOSUB 2810:R >PB 
ESTORE 5630 

2720 IF tableau=3 THEN GOSUB 2810:R >PG 
ESTORE 5750 

2730 IF tableau=4 THEN GOSUB 2810:R >PH 
ESTORE 5870 

2740 ERASE d:GOTO 510 >PP 

2750 REH » NIVEAU 5 » >HD 

2760 IF tableau=l THEN GOSUB 2810:R >PZ 
ESTORE 6020 

2770 IF tableau=2 THEN GOSUB 2810:R >PE 
ESTORE 6140 

2780 IF tableau=3 THEN GOSUB 2810:R >PK 
ESTORE 6260 

2790 IF tableau=4 THEN GOSUB 28iO:R >PQ 


ESTORE 6380 

'2800 ERASE d:GOTÛ 510 >PL 

2810 REH >AC 

2820 REH >AD 

2830 REH >AE 

2840 FOR n=l TO teips STEP 2 >VR 

2850 PLOT (140»teips)-n,30,0:DRAW ( >UE 
140»te«ps)-n,17 

2860 NEXT n >WG 

2870 te«psl=0:te«ps2=0:PEN 13 >YN 

2880 LOCATE 36.4 : PR INT"N« >UQ 

2890 LOCATE 36.6 : PR 1 NT"I" >UN 

2900 LOCATE 36,8:PRINT’V* >UW 

2910 LOCATE 36,10:PRINT’E" >VT 

2920 LOCATE 36,12 : PRI NT"A" >VR 

2930 LOCATE 36,14:PRINT"U" >VR 

2940 LOCATE 35.17:PR1NT niveau >ZH 

2950 RETURN >FK 

2960 REH a»»»**»*#»**»»»# >QP 

2970 REH » FIN DE TABLEAU « >TR 

: 2980 REH «i»»»»»»»»»»»»»» >QR 

2990 PEN 3:LOCATE q,v:PRINT i» >YA 

3000 PEN 3:LOCATE ql.wl:PRINT b» >AE 
3010 INK 3.3,26:B0RDER 0,13 >UH 

! 3020 FOR i=0 TO 60 STEP 0.5 >TH 


3030 SOUND l,INT(SIN(i)«150)»200,2, >DB 
1 12 

3040 SOUND 4.1NT(COS(i)« 100) +150,1, >DA 
14 


3050 NEXT i >VD 

3060 INK 3,6:BORDER 1 >PD 

3070 IF tableau>4 THEN tableau=l:ni >HT 
veau=niveau+l:vie=vie+l 
3080 appl=0:tour=0:RETURN >«V 

3090 REH »»»»»«»*»*»»«» >NE 

3100 REH « PRESENTATION » >UJ 

3110 REH »miii*»«ii»i >NX 

3120 HODE 1:BORDER 1 >NA 


3130 LOCATE 16,2:PRINT"U 1 L L Y* >BK 


3140 LOCATE 15.3:PRINT"-=-=-=-=-=-" >CC 

3150 LOCATE 14,7:PRINT’l -> JOU >FJ 

ER" 

3160 LOCATE 14,9:PRINT"2 .> REG >FP 

LE" 

3170 LOCATE 14.11:PRINT"3 .> SC >GJ 

ORE" 

3180 LOCATE 14.13:PRINT"4 .> Fl >EZ 

N" 


3190 LOCATE 12,17:PRINT"FAITE VOTRE >PV 
CHOIX ?" 


3200 

z$= 1 NKEY $ : IF z*="’ THEN 3200 

>zz 

3210 

IF zl="l" THEN 470 


>PJ 

3220 

IF z»="2" THEN 3260 


>QF 

3230 

IF z*="3" THEN 3780 


>QQ 

3240 

IF z*="4" THEN MODE 

1 : END 

>VR 

3250 

GOTO 3200 


>MC 

3260 

REM »»««««« 


>TE 

3270 

REM i REGLE « 


>LN 

3280 

REM **•»»»* 


>TG 

3290 

CLS 


>AD 

3300 

LOCATE 16.2:PR 1NT"U 

1 L L Y" 

>BJ 

3310 

LOCATE 15.3:PRINT"-= 


>CB 

3320 

LOCATE 1,7:PRINT "Vous etes Ul 

>NE 


Il Y petit fantoae perdu au royauae 
de 1 * ARAIGNEE." 

3330 LOCATE 1,10:PRINT "Votre but e >DV 
st siaple coloriées en aarrontoutes 
les cases blanches." 

3340 LOCATE 1,13:PR INT "Hais attent >RV 
ion aux éclairs, aux trous noirs 
et a I'araignée." 

3350 LOCATE 1,16:PR INT "Heureuseaen >CG 
t, il y a quelques bonus, telque le 
sablier et le coeur." 

3360 LOCATE 1,19:PRINT "J’allais ou >AJ 
blier, vous etes liaite dans le tea 
ps, et il y a quelques surprise." 

3370 LOCATE 10,22:PRINT "PRESSER U >TE 


TOUCHE é C è POUR CONTINUER " 

3380 z*=INKEY$ : IF zl="" THEN 3380 >ZU 

3390 IF z*="c" OR z»="C" THEN 3410 >YR 

3400 GOTO 3380 >HJ 

3410 CLS >2H 

3420 LOCATE 1,2:PRINT"UILLY. >QC 

.*:LOCATE 25,1:PR1NT i* 

3430 LOCATE 1,5:PRINT’L'ARAIGNEE... >R0 


3440 LOCATE 1,8:PRINT"L'ECLAIR. >QX 

.LOCATE 25,7:PRINT e» 

3450 LOCATE 1,U:PRINT"LE COEUR.... >TF 


":LOCATE 25,10:PRINT c$ 


3460 LOCATE 1,14:PRINT'LE SABLIER.. >UD 

.LOCATE 25,13:PRINT h» 

3470 LOCATE 1,17 : PR INT"Dernier deta >KG 
il, il y a 5 niveau coaport 

ant chacun 4 tableaux, al 

ors BONNE CHANCE !!." 

3480 LOCATE 1,22:PRINT "PRESSER LA /RU 
TOUCHE é C è POUR CONTINUER " 

3490 z»=INKEY$:IF z»="" THEN 3490 >ZY 
3500 IF z$="c" OR z»="C" THEN 3090 >YN 


3510 GOTO 3490 >NC 
3520 REM HHHOiiHiii >PR 
3530 REH • FIN DE PARTIE « >RC 
3540 REM >PU 
3550 CLS : MODE 2 >BD 


3560 LOCATE 30,8:PRINT "VOUS ETES A >LC 
RRIVE" 

3570 LOCATE 25,10:PRINT "AU TABLEAU >TR 
N.";tableau;"DU NIVEAU";niveau 
3580 LOCATE 25,12:PRINT "VOTRE SCOR >JR 
E EST DE";score:"POINTS" 

3590 LOCATE 20,16:PR1NT "PRESSER LA >TN 
TOUCHE é C è POUR CONTINUER " 

3600 z*=INKEY*:IF z»="" THEN 3600 >ZH 
3610 IF z<="c" OR z$="C" THEN CLS:E >TV 


RASE d:GOTO 3630 

3620 GOTO 3600 >MH 
3630 REH «*«»«»«»»»•*»»»* >QJ 
3640 REM « REGULARISATION « >HK 
3650 REH *i*mm<***«li >QL 


3660 IF score)scorel THEN score3=sc >NM 
ore2:score2=scorel:scorel=score:GOS 
UB 3720 :noa34=noa24:noa24=noa14 :noa 
l»=noa»:GOTO 3780 

3670 IF score>score2 THEN score3=sc >PV 
ore2:score2=score:GOSUB 3720 :noa3$= 
no«2$:noa24=noa$: GOTO 3780 
3680 IF score>score3 THEN scoreS^sc >XF 
ore:GOSUB 3720:noa3»=noa»:G0T0 3780 
3690 1F score=scorel THEN score3=sc >PV 
ore2:score2=score:G0SUB 3720:noa3$= 
noa2t:noa2t-noal:G0T0 3760 
3700 IF score=score2 THEN score3=sc >XU 
ore:GOSUB 3720:noa3*=noa4:GOTO 3780 
3710 GOTO 3090 >NA 

3720 MODE 2 >PJ 

3730 LOCATE 20,8:PR INT"VOUS ETES PA >FL 
RMI S LES 3 CHAMPIONS" 

3740 LOCATE 20,10:PR INT'VOTRE NOM S >HF 
.V.P ?" 

3750 LOCATE 20.12:LINE INPUT"";noa» >DG 
3760 noa$-UPPER4(LEFT4(noat,8)) >AG 
3770 RETURN >GA 


3780 MODE 2: CLS >CC 

3790 LOCATE 30.2 : PR INT'TABLEAU DES >NL 
SCORES" 

3800 LOCATE 30.3:PRINT"-=-=-=-=-=-= >KA 

3810 LOCATE 24.7:PRINT" Preaier.... >XC 

..";noal*;".";scorel:"POINTS" 

3820 LOCATE 24.9:PRINT" Second. >IC 

. .*;noa2$;*.";score2i"P0INTS" 

3830 LOCATE 24,11:PRINT" Troisieae. >AV 

..." ;noa3»;’.* ;scoreS;"PO INTS" 

3840 LOCATE 26,15 : PR INT’PRESSEZ éCè >BU 
POUR CONTINUER" 

3850 z*=INKEY*:IF z»="" THEN 3850 >ZY 
3860 1F z»="c" OR z»="C" THEN JU90 >YY 


3870 GOTO 3850 >PB 
3880 REM «lliliim >LZ 
3890 REM « CHAMPION » >PB 
3900 REM «*»»u**»i >LR 
3910 CLS:MODE 2 >BD 
3920 LOCATE 2O,6:PRINT"V0US ETES LE )KA 
CHAMPION DES CHAMPIONS" 

3930 GOSUB 3560 >YB 


3940 IF score>scorel THEN score3=sc >UK 

ore2:score2=scorel:scorel=score:noa 

34=noB24:noa2$=noBl>:noal4=noa4:G0T 
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3950 REH 1111111111 >U 
3960 REM « NIVEAU 1 » >MD 
3970 REM mimin >LZ 
3980 REM TABLEAU N.1 >PC 
3990 DATA 102,280,19,1,5 >QW 


4000 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EY 

.1,1,0 

4010 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EA 

,1,1,1 

4020 DATA 1,4,1,1,1,2,2,1,2,2,1,1,1 >EL 
,4,1,0 

4030 DATA 1,1,4,1,2,2,2,2,2,2,2,1,4 >ER 

,1,1,1 

4040 DATA 1,4,1,1,2,2,2,2,2,2,2,1.1 >ER 
.4,1,0 

4050 DATA 1,1,4,1,2,2,2,2,2,2,2,1,4 )EU 

,1,1,1 

4060 DATA 1,4,l,1,1,2,2,2,2,2,1,1,1 >ER 
,4,1,0 

4070 DATA 1,1,4,1,4,1,2,2,2,1,4,1,4 >EY 

,1,1,1 

4080 DATA 1,4,1,1,1,1,1,2,1,1,1,1,1 >EP 
,4,1,0 

4090 DATA 1,1,1,1,1,4,1,1,1,4,1,1,1 >EQ 

,1,1,1 

4100 REH TABLEAU N.2 >NU 


24 


















4110 

DATA 

108, 

250,3,11,5 



>QB 

4120 

DATA 

1, 

1, 

l, 

1,1,1,1,2,1,1, 

1, 

1,1 

>ED 

,1,1, 

1 








4130 

DATA 

1, 

1, 

1, 

1,1,1,2,2,2,1, 

1, 

1,1 

>EG 

,1,1. 

1 








4140 

DATA 

1, 

1, 

9, 

1,1,2,2,2,2,2, 

1, 

1,9 

)EC 

,1,1. 

,1 








4150 

DATA 

1, 

1, 

il, 

1,2,2,2,2,2,2. 

2, 

1.1 

>ER 

,1,4, 

,1 








4160 

DATA 

1. 

1, 

,9, 

1.2,2,2,2,2,2, 

,2. 

1.9 

>EG 

,1,1, 

1 








4170 

DATA 

1, 

.1. 

il, 

1,2,2.2,2,2,2,2, 

1.1 

>EU 

,1,4, 

,1 








4180 

DATA 

1, 

il, 

,9, 

1,1,2,1,2,1,2, 

,1, 

1,9 

>EE 

,1,1 

,1 








4190 

DATA 

1, 

,1, 

,1, 

,1.1,1,1,2,1,1, 

,1, 

1,1 

>EP 

,1,4. 

,1 








4200 

DATA 

1, 

,1, 

,9, 

,U,1,2,2,2,1, 

,1, 

il,9 

>EY 

,1,1 

,1 








4210 

DATA 

1 

,1 

. 1 

,1,4,1,1, U,1 

,4, 

1,1 

>EM 


,1,4,1 

4220 REM TABLEAU N.3 >NA 


4230 

DATA 

116. 

300,29.9,5 




>00 

4240 

DATA 

1, 

1, 

1, 

4, 

1,4,1,1,1, 

1,4, 

1, 

1 

>EU 

,1,4, 

.1 










4250 

DATA 

1, 

1, 

1, 

J, 

1,1,1,2,1, 

1,1, 

1, 

1 

>EH 

,1,1, 

,1 










4260 

DATA 

1, 

il, 

1, 

,4, 

1,1,2,2,2, 

1,1, 

4. 

1 

>EW 

,4,1, 

,1 










4270 

DATA 

1, 

il, 

1, 

,1, 

J,2,2,2,2,2,1, 

1, 

1 

>EP 

,1,1, 

,1 










4280 

DATA 

1, 

,1, 

4, 

,1, 

2,2,2,2,2, 

,2.2, 

1 , 

4 

>EC 

,1,1, 

,4 










4290 

DATA 

1, 

il, 

1, 

,1, 

,1.2,2,2,2,2,1, 

1, 

1 

>ER 

,1,1, 

,1 










4300 

DATA 

1, 

|4, 

1, 

,1, 

il,1,2,2,2, 

,1,1. 

1, 

1 

>EM 

,4,1, 

,1 










4310 

DATA 

1, 

il, 

1, 

• 4, 

,1,1,1,2,1, 

.1.1, 

4. 

1 

>EL 

,1,1, 

,1 










4320 

DATA 

1, 

1, 

1, 

il, 

1,*,1,1,1, 

4,1, 

1, 

1 

>EP 

,1,4, 

,1 










4330 

DATA 

1, 

il, 

1, 

il, 

1,1,1,4,1, 

1,1. 

1 , 

1 

>EJ 


,1,1,1 

4340 REM TABLEAU N.4 >NE 

4350 DATA 100,320,19,1,5 >QD 

4360 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EJ 

,1,1,1 

4370 DATA 1,2,1,4,1,1,1,2,2,1,1,1,4 >EW 

,1,2,1 

4380 DATA 1,2,1,1,2,2,2,2,2,2,2,2,1 >EX 

,1,2,1 

4390 DATA 1,1,2,1,2,2,2,2,2,2,2,2.1 >EY 

,2,1,1 

4400 DATA 1,1,2,1,1,1,1,2,2,1,1,4,1 >EP 


,2.1,4 


4410 

DATA 

1.4,1, 

2, 

1,4, 

1,1,2,2,1, 

1, 

2 

>EQ 

,1,1. 

1 








4420 

DATA 

1,4,1, 

2, 

1,1, 

1,2.2,1,1, 

1. 

2 

>ER 

,1,4. 

1 








4430 

DATA 

1,1,1, 

1, 

2,1. 

2,2,1,1,1. 

2, 

1 

>EP 

, 1,4, 

1 








4440 

DATA 

1,4,1, 

1, 

2,1, 

1,2,2,1,1, 

2, 

1 

>EX 

,4,4, 

1 








4450 

DATA 

1,1,1, 

1, 

1,2, 

1,1,1,1,2, 

1, 

1 

>EP 

,1,4, 

1 








4460 

REM 





>LU 

4470 

REM i 

i NIVEAU 

2 i 




>MB 

4480 

REM 

«««Utllil 




>L0 

4490 

REM TABLEAU N.l 




>NH 

4500 

DATA 

110,300,7,9, 

4 



>PJ 

4510 

DATA 

1,1,1, 

il, 

,1,1, 

,1,1,1,1,1, 

,9, 

1 

>EP 

,1,1, 

1 








4520 

DATA 

1.1,4. 

,1, 

,1,1, 

,1,2,2,1,1, 

.1, 

1 

>EV 

,9,1, 

1 








4530 

DATA 

4,1,1, 

,1. 

,1,1. 

,2,2,2,2,1, 

,9, 

1 

>EZ 

,1,1, 

il 








4540 

DATA 

1,1.4, 

,1, 

,1,2,2,2,2,2.2, 

,1, 

1 

>EC 

,1,9, 

,1 








4550 

DATA 

1,1,1 

,1 

,1,1 

,1,2.2,1.1, 

.1, 

.9 

>EU 

,1,1, 

1 








4560 

DATA 

1,4.1. 

,1 

,1,1 

,1,2,2,1.1, 

.1. 

.1 

>EA 

,1,9, 

,1 








4570 

DATA 

4,1,1 

,4 

,1,2,2,2,2,2,2, 

,1, 

4 

>ED 

,1,1, 

,1 








4580 DATA 

1,1,4 

,1 

,1,1 

,2,2,2,2.1, 

,1, 

.1 

>EZ 

,4,1, 

,1 








4590 

DATA 

1,4,1 

,1 

,4,1 

,1,2,2,1,1, 

,9, 

,1 

>FB 

,1,*, 

,1 








4600 

DATA 

4,1,1 

.4 

,1,1 

,1,1,1,1,1 

,1, 

.1 

>EM 

,1,1, 

,1 









4610 REM TABLEAU N.2 >NC 

4620 DATA 124,280,15,9,4 •OU 

4630 DATA 2,1,1,1,1,1,2,1,1,1,1,1,1 >EM 

,1,1,2 

4640 DATA 1,2,1,1,1,1,1,2,2.1.1,4,1 >ER 

,1,1,1 

4650 DATA 1,1,2,1.1.1,1,2.1,1,1.1,1 >EP 

,2,1,1 

4660 DATA 1,1,1,2,1,1,1,1,1,2.1,1.2 >EQ 

,1,1,1 

4670 DATA 1,4,1,1,2.2.1,1,1.1,2,2,1 >EZ 
,1,4,1 

4680 DATA 1,1,1,1,1,2,1,1,1,1,2,2,1 >ET 

,1,1,1 

4690 DATA 1,1,1,2,1.1,1,1,1,2,1,1.2 >EU 

,1,1,1 

4700 DATA 1,1,2,1,1,1,1,1,2,1,1,1,1 >EK 

,2,1,1 


4710 DATA 1,2,1,1,4,1,1,2,1,1,1,4,1 >ET 

,1,2,1 

4720 DATA 2,1,1,1,1,1,2,1,1,1,1,1,1 >EL 

,1,1,1 

4730 REM TABLEAU N. 3 >NG 

4740 DATA 97,180,27,9,4 >0F 

4750 DATA 1,1,1,1,1,1,1,2,2,1,1,1,1 >EP 

,1,1,1 

4760 DATA 1,1,2,1,2,2,1,1,1,1.2.2.1 >EV 

,2,1,1 

4770 DATA 1,2,1.1,2.2,1.2,2,1.2,2.1 >EY 

,1,2,1 

4780 DATA 1,2.1.1,2,2.1.1,1,1.2,2,1 >EX 

,1,2,1 

4790 DATA 1,2,1,1,2,2,1,2,2,1.2,2,1 >EA 

,1,2,1 

4800 DATA 1.1.1.1.2.2.1.1.1.1,2.2,1 >EM 

,1,1,1 

4810 DATA 1.1,2,2,2.2,1,2,2.1.2,2.2 >EV 

,2,1,1 

4820 DATA 1,2.2,2.2.2,1,1.1,1.2.2,2 >E« 

,2,2,1 

4830 DATA 1,1,2,2,2,1,1,2,2,1.1,2,2 >EV 

,2,1,1 

4840 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EM 
,1,1,1 

4850 REM TABLEAU N.4 >PC 

4860 DATA 96.300,15,9,4 >PG 

4870 DATA 1.1.1,1,1,1,1,1,1,1,1.1.1 >Efl 

,1,1,1 

4880 DATA 2,2,2.2.2.2.2.1,1,2,2,2,2 >EG 

, 2 . 2,2 

4890 DATA 1.2,2,1,1,2.2,1,1.2.2,l.1 >EB 

,2,2,1 

4900 DATA 1,1,2,2,1,1,1,1,1,1,1,1,2 >EN 

,2,1,1 

4910 DATA 4,1,1,2,2,1,1,1,1,1,1,2,2 >EW 
.1,1.4 

4920 DATA 1.1,2,2,1,1,1,1,1,l,1,1,2 >EQ 

,2,1,1 

4930 DATA 1,2,2.1,1,2,2,1,1.2,2,1,1 >EW 

.2,2,1 

4940 DATA l,2,2,2.2,2,2,1,1,2,2,2,2 >EB 

,2,2,1 

4950 DATA 1,1,1,1,4,1,1,1,4,1,1,1.4 >EZ 

,1,1,1 

4960 DATA 1.1,4,1,1,1.4,1,1,1,4,1,1 >ED 

,1,4,1 


4970 REM Hflllllll 

>LA 

4980 REM » NIVEAU 3 « 

>NA 

4990 REM mi»»»»»» 

>LC 

5000 REM TABLEAU N.1 

>NV 

5010 DATA 100,280,13,13,4 

>RU 

5020 DATA 1,1,1,1,1,1,1,1,1, 

1,1,1,1 >ED 


25 


,1,1,2 

5030 DATA 1,2,2,2,1,2,1,2,1,2.1.2,1 >EN 

. 2 , 1,2 

5040 DATA 2,1,1,1,2,1,1,1,1,1,1,1,1 >EG 

,1,1,1 

5050 DATA 1,2,1,2,1,2,4,2,4,2,4,2,2 >EA 

,2,1,2 

5060 DATA 1,1,1,1,1,1,4,1,1,1,4,1,1 >EN 

,1,1,1 

5070 DATA 2,2,1,2,1,2,4,2,1,2,4,2,1 >EA 

, 2 , 2,2 

5080 DATA 1,1,2,1,1,1,1,1,1,1,4,1,1 >EP 

,1,1,2 

5090 DATA 1,2,1,2,1,2,4,2,1,2,1,2,1 >EX 

,2,1.2 

5100 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EB 

,1,1,1 

5110 DATA 2,2,1,2,1,2,1.2,1,2,1,2,2 >EM 

,2,1,1 

5120 REH TABLEAU N.2 >NZ 

5130 DATA 94,270,29.7.4 )FE 

5140 DATA 4,1,1,1,1,1,1,1,1,1,1,1,1 >EH 
,4,1.1 

5150 DATA 1,1,4,1,2,2,1,2,2.1,2,2,1 >ER 

,1,1,1 

5160 DATA 1,9,1,1,2,2,1,2,2.1,2,2,4 >FB 
,1,9,1 

5170 DATA 1,4,1,1,2,2,1,1,1,1,2,2.1 >ER 

,1,1,1 

5180 DATA 1,1,9,1,1,2,2,4,1,2,2,1,1 >FB 
,9,1,1 

5190 DATA 4,1,1,1,1,2,2,1,1,2,2,1.4 >EX 

,1,1,1 

5200 DATA 1,9,1,1,2,2,1,1,1,1,2,2,1 >EZ 
,1,9,1 

5210 DATA 1,1,4,1,2,2,1,2,2,1,2,2,1 >ER 

,*, 1,1 

5220 DATA 1,1,9.1,2.2,1,2,2,1,2,2,1 >ED 
,9,1,1 

5230 DATA 9,1,1,1,1,2,2,2.2,2,2,1,1 >EW 

,1,1,1 

5240 REH TABLEAU N.3 >ND 

5250 DATA 87,200,21,9,4 >PW 

5260 DATA 1,1,1,2,1,1,1,2,1,1,1,9,1 >EU 

,1,1,2 

5270 DATA 1,2,1,2,1,2,1,2,1,2,1,9,1 >FA 
,9,1,2 

5280 DATA 1,2,1,9,1,2,1,9,1,2,1,9,1 >FR 
,9,1,2 

5290 DATA 1,2,1,9,1,2,1,9,1,2,1,9,1 >FT 
,9,1,2 

5300 DATA 1,2,1,9,1,2,1,2,1,2,1,9,1 >FB 
,9,1,2 

5310 DATA 1,9,1,9,1,2,1,2,1,2,1,9,1 >FK 


,9,1,2 

5320 DATA 1,9,1,2,1,2,1,9,1,9,1,9,1 >FU 
,9,1,2 

5330 DATA 1,2,1,2,1,2,1,9,1,9,1,9,1 >FH 
,9,1,2 

5340 DATA 1,2,1,2,1,2,1.2,1,2,1,9,1 >EG 
.9,1.2 

5350 DATA 1,2,1,1,1,2,1,1,1,2,1,1,1 >EW 
,9.1,1 

5360 REH TABLEAU N.4 )NH 

5370 DATA 102,330,23,5,4 >QH 

5380 ÛATA 1,1,1,1,1,1,1,4,1,1,1,1,1 >E0 

,1,1.1 

5390 DATA 1,1,4,1,1,1,1,1,1,4,1,1,2 )EX 

,2.1,1 

5400 DATA 2,2,1,1,1,1,2,2,2,2,1,1.1 >EH 

,1,2,1 

5410 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 >EP 

,2,2,1 

5420 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 >EQ 

,2,1,1 

5430 DATA 1,1,4,1,1,1,4,1,4,1,1,4,1 >EZ 

, 1 , 1 ,* 

5440 DATA 4,1,1,1,4,1,1,1,1,4,1,1,1 >EX 

,*, 1,1 

5450 DATA 1,1,2,2,2,2,1,1,1,1,2,2.2 >EU 

,2,1,1 

5460 DATA 1,2,2,1.1,2,2,1,1,2,2,1.1 >EV 

,2,2,1 

5470 DATA 1,1,1,1,1,1,2,2,2,2,1,1,1 >ER 


,1,1,1 

5480 REH «HHimi >LX 
5490 REH < NIVEAU 4 « >HG 
5500 REH (ttiitifti >LP 
5510 REH TABLEAU N.l >NB 
5520 DATA 84,400,15,13,3 >QL 


5530 DATA 0,1.1,1.1,1,1,0,1.1,1,1,1 >EF 

,1,1,0 

5540 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 >EU 

,2,1,1 

5550 DATA 1.2,2,1,1,0,1,1,1,1,0,1,1 >EN 

,2,2,1 

5560 DATA 1,2,2,0,1,1,1,0,0,1,1,1,0 >EH 

,2,2,1 

5570 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 >EX 

,2,1,1 

5580 DATA 1,2,2,0,0,2,2,4,1,2,2,0.0 >EX 

,2,2,1 

5590 DATA 1,2,2,0.0,2,2,1,1,2,2,0,0 >EV 

,2,2,1 

5600 DATA 1,1,2,2,2,2.1,1,4,1,2,2,2 >EU 

,2,1,1 

5610 DATA 0,1,1,4,1,0,1,1,1,1,1,1,4 >EL 
26 


,1,1,0 

5620 DATA 1.1,0,1.1,1.1,0,1,1.1,1,1 >EF 
,0,1,1 

5630 REH TABLEAU N. 2 >NF 

5640 DATA 79,300,15,3,3 >PX 

5650 DATA 1.4,1,1,1,1.1,0,1,1,1,1.1 >ET 
,1,*,1 

5660 DATA 1,1,1,1,1,1,1,1,1,0,1,1,1 >EH 
,1,1,1 

5670 DATA 1,1,2,2,2,1,4,1,1,1,1,2.2 >EZ 
,2,1,1 

5680 DATA 1,2,2,2,2,2,1,1,4,1,2,2,2 >EE 
,2,2,1 

5690 DATA 1,2,0,0,0,2,0,1,1,1,2,0.0 >EN 
,0,2,1 

5700 DATA 1,2,2,0,2,2.1,0,1,1.2,2.0 >EN 
, 2 , 2,1 

5710 DATA 1.1,2.2,2,1,1,1,0,1,1,2,2 >EP 
,2,1,1 

5720 DATA 1,1,2,2.2,1,0,1,1,1,1,2,2 >EQ 
,2,1,1 

5730 DATA 1,2,2,0.2,2.1,4,1,1,2,2.0 >EW 
,2,2,1 

5740 DATA 1,2,0,0,0,2.1,1,1,0,2,0,0 >EJ 
,0,2,1 

5750 REH TABLEAU N.3 >PB 

5760 DATA 70.300,17,5.3 >PV 

5770 DATA 1,1,1.0.1,1,1,0,1,1,4,4,1 >EU 
,1,1,0 

5780 DATA 1,0,1,1,1,1,1,0,1,4,0,1,4 >EU 
,1,0,1 

5790 DATA 1,1,4,0,1,1,1,1,1,1.1,1,4 >EX 
,1,0,1 

5800 DATA 4,1,4,1,1,1,1,0,1,4,0,1,1 >ER 
,1,1,1 

5810 DATA 1,1,4,2,2,0,1,0,1,1,4,4,1 >EV 
,0,2,1 

5820 DATA 1,4,1,2,2,1,1,0,9,9,9,1,1 >FJ 
,1,2,1 

5830 DATA 1,1,1,2.2,2,2,2.9,9,9,2,2 >FP 
,2,2,1 

5840 DATA A,4,l,2,2,0.0.2.2.9.2.2,0 >EG 
,0,2,1 

5850 DATA 1,1,1,2,2,0,0,2,2,9,2,2,0 >EB 
,0,2,1 

5860 DATA 0.1,4,2,2,0,0,2,2,9,2,2.0 >EE 
,0,2,1 

5870 REH TABLEAU N.4 >PF 

5880 DATA 102,350,15,15,3 >RN 

5890 DATA 1,1,1,1,1,1,1,1,1,1,1,0.1 >ER 
,0,1,1 

5900 DATA 1,4,1,1,1,1,0,1,0,4,1,1,1 >EP 
,1,1,1 

5910 DATA 1,1,4,0,1,1,1,1,1,1,4,1,0 >EQ 




.1.1,1 

5920 DATA 4,1,1,1,0,2.1,2,2,1,1,0.1 >EQ 

.1,0,1 

5930 DATA 1.1,4,1,2,2.1.1,2,2.1,0,1 >EV 

,1,1,1 

5940 DATA 1,2.2,1.1,2,2.1.1,2,2,1,1 >EY 

,2,2,1 

5950 DATA 1,2.2.1.1,2,2,1,1,2,2.1,1 >EZ 

. 2 , 2,1 

5960 DATA 1,1.2.2.2.1.1.1.1.0,1,2,2 >EX 

. 2 . 1.1 

5970 DATA 1.2,2.1.1.1,0.1.1.I,1,1,1 >EW 

.2,2,1 

5980 DATA 2,2.1.1.0,1.1,1.0,1,1,0,1 >EU 


.1.2,1 

5990 REM >LD 
6000 REM » NIVEAU 5 « >MV 
6010 REM ««»»»»»*»* >LL 
6020 REM TABLEAU N.l >NY 
6030 DATA 106,400,15,7,3 >QF 


6040 DATA 1.0,1.0,1.0.1,0,1,0,1.0.1 >EX 

.0.1.0 

6050 DATA 1,1,1,1,1,1,1,1,1.0,1,1.1 >EF 

, 1 , 1.1 

6060 DATA 0.0.0,1,0,1.0,1.0.1,0,0,0 >EX 

.1.0.1 

6070 DATA 1.1,1,0,1.1,1.1,1,1,1,1,1 >EG 

.0,1.1 

6080 DATA 1.0,1.0.1.0.1.0.1.0.1.0.1 >EB 

. 0 . 1.0 

6090 DATA 1,1,1,1.0,1.1,1,0,1,1,1.1 >EJ 

,1,1.1 

6100 DATA 0,1,0.1.0,1,0,1.0,1,0,1.0 >EU 

,1,0.1 

6110 DATA 1,1,1,1,1,1,1,0,1,1,1,0,1 >EB 

,1,1,1 

6120 DATA 1,0,1,0,1,0,1,0,1.0,1,0,1 >EU 

,0,1,0 

6130 DATA 1,1,0,1,1,1,0,1,1,1,0,1,1 >EB 

,0.1,1 

6140 REM TABLEAU N.2 >NC 

6150 DATA 94.200,25,5,3 >PT 

6160 DATA 1,1,1,1,1,2,1,1,1,1,1,1,1 >EK 

,1,1.1 

6170 DATA 1,0,2,2,2,1,1,2,2,9,2,2,2 >EB 

,2,0,1 

6180 DATA 1,2,1,1,1,1,9,1,4,1,1,1,1 >EH 
,1,9,1 

6190 DATA 1,2,1,0,2,2,1,1,1,1,4,1,1 >EU 

,1,2,1 

6200 DATA 1,9,1,2,1,4,1,2,9,9,2,9,9 >FV 

,2,0,1 

6210 DATA 1,9,1,2,1,1,1,1,1,1,1,1,1 >EP 



,1,1,1 

6220 DATA 1,2,1,0,2,2,2,9,9,2,2,2,2 >EF 

,2.0.1 

6230 DATA 1,2,1,1,1,1,1,1,1,1,1,1,1 >EJ 

,1,2.1 

6240 DATA 1,0,2,2,9,9,2,2,2,2,2,2,2 >FJ 
,1,9.1 

6250 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >EK 

,1,2,1 

6260 REH TABLEAU N.3 >NG 

6270 DATA 86,300.15.9,3 >PB 

6280 DATA 1,0,1,1,1,1,1,0,1,1,1.1.0 >EJ 

,1,1,1 

6290 DATA 1,1,1,1,1,0,1,1.1,0,1,1,1 >EP 

.1.4,1 

6300 DATA 1,0,0,1,1,1,1,0,1,1,1,0,1 >EZ 

,0,1,1 

6310 DATA 1,1,1,2,2,2,2,1,1,2,2,2,2 >EH 

,0,1,0 

6320 DATA 0,1,2,2,1,1,1,1,1,1,1,1,2 >EK 

,2,1,1 

6330 DATA 1,1,2,2,2,1,9,0,1,9,1,2,2 >EE 

,2,0.1 

6340 DATA 1,2,2,0,2,2,9.1,1.9.2,2.0 >EH 

,2,2.1 

6350 DATA 1,1,2,2,2,1,9,1.0,9,1,2,2 >EH 

,2,1,1 

6360 DATA 1,4,2,2,4,1,9,1,1,9,1,4.2 >FJ 

,2,1.1 

6370 DATA 2,2,2,2,1,1,1,1,1,1,1,1,2 >EV 

,2,2.1 

6380 REM TABLEAU N.4 >PC 

6390 DATA 92,300.27.17.3 >QY 

6400 DATA 0,4,1,1,1,1,1,1,1,1,4,1.1 >EN 
,1,4,0 

6410 DATA 1,1,1,4,4,1,1,1,4,1,1,1.4 >EV 

,1,M 

6420 DATA 1,4,2,2,1,2,2,1,4,2,2,1,2 >EB 
,2,4,1 

6430 DATA 1,1,2,2,1,2,2,1,1,2,2,1,2 >ET 

,2,1,1 

6440 DATA 4,1,4,1,1,1,1,4,1,1,1,4,1 >EB 
,1,1,4 

6450 DATA 1,1,4,1,1,4,1,1,4,4,1,1,4 >EC 

,1,1,1 

6460 DATA 1,4,2,2,1,2,2,1,1,2,2,1.2 >EC 
,2,4.1 

6470 DATA 1,1,2,2,1,2,2,4,1,2.2,1.2 >EA 

,2,1,1 

6480 DATA 4,1,4,1,1,4,1,1,1,4,1,1.4 >FA 
,1,1.4 

6490 DATA 0,1,1,1,4,1,1,1,1,1,1,4,1 >EV 

, 1 , 1,0 □ 


Fonctions 

ETUDE DE FONCTIONS 
SIMPLES DU 1ER ET 
2EME DEGRE 


Marc GIANETTI 



C e programme est destiné aux élè¬ 
ves de 3ème pour bien débuter avec 
les fonctions. Ce qui est appliqué ici est 
le strict nécessaire pour comprendre fa¬ 
cilement les domaines abordés dans la 
suite des études. 

Il débute par le rappel de quelques 
règles simples, puis exécute une démons¬ 
tration de tracé de fonction suivant des 
coordonnées choisies par l'utilisateur. Les 
cas particuliers peuvent être étudiés. 

Pour la fonction F(x) = ax+b, on peut 
aussi s'exercer sur une fonction choisie 
par l'ordinateur. Ceci n'est pas indispen¬ 
sable pour l'autre fonction puisqu'il suf¬ 
fit de comprendre une fois pour saisir le 
reste. 

Les blancs inutiles du Basic ont été 
supprimés. 

Les codes de contrôle, mis ici sous 
la forme "CHRS"**", peuvent être trans¬ 
crits sous la forme compilée (Ex : 
PRINT" A "). 

Les REMs peuvent être éliminés sans 
problèmes. 

Il reste à souhaiter aux utilisateurs de 
grandes et longues études. 


1Û 'fonction /LA 

20 ’»»»»»»»»»»>»»»»» >LB 

»> 

30 ’>> Logiciel d'éducation >LC 

» 

40 ’» .-. >LD 

» 

50 ’» ETUDE DE FONCTIONS SIMPLES )LE 

» 

60 >» ========================== >LF 
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» 


70 1 

'» Fait par: GIANETTI Marc 

>LG 

)? 




80 1 

’» 

Le 7 février 1987. 

>LH 

» 




90 1 

1 »»>»»»»»»»»»»»»» 

>U 

»> 




100 

» 


>RB 

110 

’== CARACTERES SPECIAUX 

>RC 

120 

» 


>RD 

130 

'routine azerty 

>RE 

140 

SYMBOL 

AFTER 64 

>NH 

150 

SYMBOL 

64,56,4,120,12,124,140,1 

>CN 

18 




160 

0 

SYMBOL 

92,0,0,60,102,96,102,60, 

)BA 

0 

170 

SYMBOL 

123,28,32,60,102,126,96, 

>CY 

60 




180 

SYMBOL 

124,56.4,102,102,102,102 

>DP 

,62 




190 

A 

SYMBOL 

125.56.4,60,102,126.96,6 

>CK 

U 

200 

SYMBOL 

126,102,204 

>PA 

210 

SYMBOL 

127.2.98,255,98,100,100, 

>FK 

52,24 



220 

TVI=CHRI ( 154 ) tCHRI ( 159 ) «CHRI (8) 

>HP 


♦CHRI(10)tCHRI(149)tCHRI(8)+CHRI(11 
)tCHRI(imCHRI(149)+CHRI(10)+CHRI< 

154)*CHRI(154)+CHB<(154)»CHRI(154)♦ 

CHRI(154)+CHRI(154)*CHRI<154)+CHRI( 

154)*CHRI(154)+CHRI(154)+CHR$(154)+ 
CHR*(154)+CHR*(154)♦CHRI(154)tCHRI( 

154) 

230 TV 1 $=CHR$(8)+ CHR*(8)+CHR$(8)+CH >NH 
R<(8)+CHR$(8)+CHR*(8)+CHR$(8)+CHR$ < 
8>+CHR*(8)+CHR*(8)+CHRt(8)+CHR*(8)+ 
CHR*(8)+CHR*(8)+CHR«(8)+CHR*(8)+CHR 
• (8)+CHR*(11) + *«*+CHR$(9)-"+CHR$( 

230)+CHR$(230)♦■ *tCHRI(240)t* 0 
*+CHR*(240)+" +*+CHR*(230)+CHR$(230 
) 

240 TV2*=CHR»(8)+CHR* < 8)+CHR*(8)+CH >LC 
R*(8)+CHR*(8)+CHR*(8)+CHR$<8)+CHR*< 

8)+CHRt(8)+CHR$(8)+CHR*(8)+CHR$(8)+ 
CHR*(8)+CHR>(8)+CHR*(8)+CHR*(8)+CHR 
*(8)+CHR$(10)+CHR*(10)+*y , +CHR*(9)+ 

CHR$(9)+CHR$(230)+CHR»(230)♦• 
•+CHR$(230)+CHRt(230) 

250 SYMBOL 169,56,108,12.56,96,124 >AH 

260 ' >RJ 

270 ’== PRESENTATION >RK 

280 ’ >TA 

290 MODE 1:BORDER 0:INK 0,0:INK 1,0 >TC 


: INK 2,0:INK 3,0 

300 WIND0W#2,9.32,6.13:PAPERt2,2:CL >QT 
S»2:PENI2,3 

310 ' dessin des cadres >RE 

320 PEN 3:L0CATE 2,3:PRINT CHR»(150 >LH 
) : FOR 1=3 TO 38.-L0CATE l,3:PRINT CH 
Ri(154);:NEXT 

330 LOCATE 39,3:PRINT CHR$<LB6): FOR >FJ 
1=4 TO 22:LOCATE 39,1:PRINT CHRK1 
49);:NEÏT 

340 LQCATE 39,22:PRINT CHRK153):F0 >TE 
R 1=38 TO 3 STEP-1:LOCATE l,22:PRIN 
T CHR$(154);:NEIT 

350 LOCATE 2,22:PR INT CHRI(147):FOR >PK 
1=21 TO 4 STEP-1:LOCATE 2.1:PR INT 
CHR$(149);:NEXT 

360 PEN 1 : FOR 1=8 TO 33:LOCATE 1,5: >AU 
PRINT CHRK238) ; :NEXT 
370 FOR 1=5 TO 14:L0CATE 33,I:PRINT >V« 
CHRI(238)::NEXT 

380 FOR 1=33 TO 8 STEP-1:LOCATE 1,1 >DH 

4 : PR I NT CHRI(238); :NEXT 

390 FOR 1=14 TO 5 STEP-1:LOCATE 8.1 >CC 

: PR INT CHR$(238);:NEIT 

400 L0CATES2,2,2 : PR INTI2,"ETUDE DE >UH 

5 FONCTIONS* 

410 L0CATEI2,6,5 : PR INTI2,CHRI(243); )RG 
" Y= A.X * B* 

420 L0CATEI2,6,7 : PR INTt2, CHRI(243); >GJ 
" Y= A.X":CHRK169);* t B* 

430 INK 0,9:INK 1,26: INK 2,6: INK 3, >BA 
0 

440 FOR 1 = 1 TO 1000: NEXT )RQ 

450 PEN 2.‘LOCATE 4,2: PR I NT"ATTENT10 >HP 
NI* 

460 PEN 1 :LOCATE 16,2:PRINT"ceci n' >CX 
1 est pas un Jeu!* 

470 PEN 2:LOCATE 5,24:PRINT CHRI(15 >LK 
2);'C’EST UN DOCUMENT DE TRAVAIL !* 

; CHRI(146) 

480 FOR 1=1 TO 1000:NEXT >RV 

490 UIND0WR3,5,36.17,20:PAPERR3,1:C >RB 
LSI3:PENI3,3 

500 L0CATEI3,2,2:PRINTI3,"Votre cho >KG 

ix: y= a.» ♦ b _ 1" 

510 L0CATEI3,15,3:PRINTI3,"y= a.i*; )DR 

CHRI(169):" * b _ 2" 

520 Al=INKEYI:IF AI="1'THEN 1370 >YG 
530 IF AI="2*THEN 2190 >PG 

540 GOTO 520 >ZC 

550 MODE 2:PAPER 0:PEN 1:G0SUB 1930 >CG 
560 LOCATE 4,2 : PR INT’VOULEZ-VOUS UN >TV 
":GOSUB 640 


| 570 LOCATE 4,23:PRINT’Votre choix ( >QY 
0/N).":LOCATE 17,18:PRINT"?* 

580 AI=UPPERI(INKEYI):1F al="0"THEN >GR 
680 

590 IF AI="N*THEN RETURN >TU 

600 GOTO 580 >ZF 

610 ’ >RH 

620 '== REGLES ELEMENTAIRES >RJ 

630 ’ >RK 

640 LOCATE 4,6 : PR INT"RAPPEL" >YL 

650 LOCATE 4,10:PRINT"DE QUELQUES* >DX 
660 LOCATE 4,14:PR1NT"REGLES* >YU 

670 LOCATE 4,18:PRINT"ET THEOREMES" >PT 
:RETURN 

680 CLS:GOSUB 1930:G0SUB 640 >«Y 

690 IF 1=2 GOTO 1230 >MB 


700 LOCATE 26,3:PRINT*- La aesure a >EA 
Igèbrique d'un" 

710 LOCATE 27,4:PRINT"segaent sur u >EM 
n aie orienté" 

720 LOCATE 27,S:PRINT*est égal à la >AC 
différence" 

730 LOCATE 27,6:PRINT’entre l'abscl >ZH 
sse de son" 

740 LOCATE 27,7 : PR INT"extrèiite et >CX 
celle de son" 

750 LOCATE 27.8:PRINT"origine." >DA 
760 LOCATE 54,3:PRINT’- Si trois po >VU 
ints A.B.C" 

770 LOCATE 55,4:PR INT"sont sur un a >VA 
èae axe* 

780 LOCATE 55,5:PRlNT"orienté,quelq >Yli 
ues soit" 

790 LOCATE 55,6:PR INT"leurs positio >PU 
ns* 

800 LOCATE 55.7 : PR I NT"reIatives ils >A« 
sont liés" 

810 LOCATE 55,8:PRINT"par l'égalité >MR 

. R 

820 LOCATE 58,9:PRINT"_ _ _• >EE 

830 LOCATE 58,10:PRINT"AC = AB t BC >DB 

fl 

840 LOCATE 56.12: PR INT"Re1ation de >TL 
CHASLES* 

850 LOCATE 26,16 : PR I NT"- Sur un aie >VB 
orienté," 

860 LOCATE 27,17:PRINT"I'abscisse d >DA 
u ai lieu d’un" 

870 LOCATE 27,18:PRINT"segaent est >DG 
égal i la deai" 

880 LOCATE 27,19:PRINT"soaae des ab >ZT 
sclsses de* 
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890 LOCATE 27,20 : PR I NT"l'origine et >N« 
de* 

900 LOCATE 27.20 : PR I NT"I’entrèeite >EG 
de ce segient." 

910 LOCATE 54,16 : PR I NT"- Une grande >BK 
ur A est dite* 

920 LOCATE 55.17:PRINT" "fonction ' d >ET 

'une grandeur" 

930 LOCATE 55,18:PRINT"B quand à ch >ZZ 
aque valeur* 

940 LOCATE 55,19:PRINT"de B corresp >UT 
ond une* 

950 LOCATE 55,20:PRINT"valeur déter >AB 
■Inée de A.’ 

960 GOSUB 1320 >QC 

970 GOSUB 1930:GOSUB 640 >TL 

980 LOCATE 27,3:PRINT*Repère orthon >UV 
oreé:" 

990 LOCATE 27.5 : PR I NT"-A«e des ordo >ZA 
nnées y'y" 

1000 LOCATE 27,7:PRINT*-A«e des abs >ZV 
cisses x'x" 

1010 LOCATE 57,3 : PR INT"F< x)= ai ♦ b >ED 

N 

1020 LOCATE 55.5 : PR INT"Si a>0 FU) >KV 
est* 

1030 LOCATE 65,6:PRINT"croissante." >JG 

1040 LOCATE 55,7 : PR 1NT"S 1 a<0 F(i) >KX 
est* 

1050 LOCATE 65,8:PRINT"décroissante >MG 

N 

1060 LOCATE 55.9 : PR 1NT"S1 a=0 FU) >KC 
est* 

1070 LOCATE 65.10:PRINT"constante.* >HZ 

1080 LOCATE 27.16:PRINT" - Théorèee >LB 
1 :* 

1090 LOCATE 27.18.-PR1NT" La courbe >FG 
représentative* 

1100 LOCATE 27,19:PRINT"de la fonct >BA 
Ion y=ai est* 

1110 LOCATE 27,20:PRlNT"une droite >DQ 
qui passe par" 

1120 LOCATE 27.21:PRINT"1"origine.■ >GT 

1130 LOCATE 55,16 : PR I NT" - Theorèi >NV 
e 2 :" 

1140 LOCATE 55.18:PRINT" La courbe >FD 
représentative" 

1150 LOCATE 55,19:PRlNT"de la fonct >ZB 
ion y=ai ♦ b* 

1160 LOCATE 55,20 : PR INT"est une par >ZD 


alléle à la* 

1170 LOCATE 55,21:PRINT"droite y=ai >EG 
.coupant l'aie" 

1180 LOCATE 55,22:PRINT*des y en un >UX 
point B" 

1190 LOCATE 55,23:PRINT’d'ordonnée >LP 
b.* 


1200 GOSUB 1320 >UB 
1210 IF J=1 THEN RETURN >RU 
1220 CLS:GOSUB 1930:G0SUB 640 >XK 
1230 LOCATE 27.3:PRINT"Do«aine de d >YK 
éflnltion" 

1240 LOCATE 27.4:PR1NT"============ >PT 


1250 LOCATE 29.7:PRINT"F(*)= ax";CH >UB 
RK 169) ;* ♦ b* 

1260 LOCATE 55,3 : PRINT"Si a>0 :" >AB 
1270 LOCATE 58.8:PRINT TV*;TVU;TV2 >EY 

t 

1280 LOCATE 60,9:PRINT"*';CHRK9>;C >TJ 
HRK9) jCHRK9) ;CHRt(241) *;*b*;* 

*;CHR»(240);* 

1290 LOCATE 55,16:PRlNT"Si a<0 :• >BL 
1300 LOCATE 58,20:PRINT TV»;TV1$;TV >FT 

21 

1310 LOCATE 60,21 : PR I NT*+*;CHRt(9); >VE 
CHRK9) :CHRK9) ;CHRK240) *;*b"; 

" *;CHR*(241); * 


1320 FOR 1 = 1 TO 1500: NEXT I >UK 

1330 LOCATE 4,25:PR INT*'ESPACE! pou >QE 
r suite*:CALL ABB06:RETURN 
1340 ’ >YA 

1350 '»» FONCTION f(i)=ai ♦ b >YB 

1360 ’ >YC 

1370 1=1:G0SUB 550:G0SUB 1930 >XX 

1380 ’ >YE 

1390 ’== Affichage des variables >YF 

1400 ' >XH 


1410 UIND0WB1.4,17,2,4:PAPERB1,1: PE >QE 
N»1,0:CLSI1 

1420 L0CATEB1,2,2:PRINT»1,"F(*)= ai >HX 
+b* 

1430 LOCATE 4,6:INPUT"_> a= *,a >ZQ 
1440 LOCATE 4,6:PRINT* " >YP 

1450 LOCATE 4,6:INPUT*_> b= *,b >ZV 
1460 IF a=0 THEN LOCATE 4,6:PRINT"F >HN 
(il -> constante*:GOTO 1480 
1470 IF a>0 THEN LOCATE 4,6:PRINT*F >VB 
(il -> Croissante'ELSE LOCATE 4.6:P 
RlNT’F(i) -> Décroissante’ 

1480 WIND0Ut4,4,22,8,15 :PAPERI4,1 : P >RZ 
ENI4,0:CLSI4 

1490 IF b<0 THEN L0CATEB4,2,2 : PR I NT >CP 
29 


*4,"y =*;a;CHRK8);"i -’;ABS(b):GOT 
0 1520 

1500 IF b=0 THEN L0CATE»4.2.2:PRINT >PB 
»4,"y =*;a;CHRK8);*i":G0T0 1520 
1510 L0CATEI4,2,2:PRINTI4,"y =";a;C >UD 


HRK8);*i *";b 

1520 GOSUB 2080 >XA 
1530 ' >YB 
1540 '== Calcul des coordonnées >YC 
1550 ' >YD 


1560 IF a=0 AND b>=0 THEN LOCATE 6, >CR 

11 : PR I NT* ";CHRt(127);" i => y =*;b 

; :GOTO 1580 aSE GOTO 1600 

1570 IF a=0 AND b<0 THEN LOCATE 6.1 >CH 

1:PRINT" ":CHR$(127);" i => y = *;b 

;:GOTO 1580 aSE GOTO 1600 

1580 IF b<0 OR b>0 THEN LOCATE 5,13 >MN 

:PRINT"L'équation ai*b=0":LOCATE 5, 

14 : PR 1 NT" est ispossible! *:GOTO 17 
60 

1590 IF b=0 THEN LOCATE 5,13:PRINT" >DJ 
L'équation ai*b=0":L0CATE 5,14:PRIN 
T’est lndéterilnée!":GOTO 1760 
1600 LOCATE 5,12:PRINT" Si x= >LD 
*:LOCATE 8,14:PRINT" y= * 

1610 LOCATE 5,12:INPUT" Si x= *,i3 >C« 
1620 IF i3>0 THEN LOCATE 5,12:PRINT >DA 
" Si i= +";i3:G0T0 1640 
1630 IF i3<0 THEN LOCATE 5,12:PRINT >YH 
* Si *= -": ABS(*3) 

1640 y3=(a«i3)»b >FB 

1650 IF y3>0 THEN LOCATE 8,14:PRINT )ZY 


’ y- **jy3:GOTO 1710 

1660 IF y3<0 THEN LOCATE 8,14:PRINT >UJ 

* y- -*;ABS(y3) 

1670 IF y3=0 THEN LOCATE 8,14:PRINT >JB 
" y= 0* 

1680 ’ >YH 

1690 Trace des coordonnées >YJ 
1700 ' >YA 

1710 x4=i3»20:y4=v3*20 >QA 

1720 ORIGIN 420,200:PLOT i4,0,l:DRA >KL 
N i4,y4:PL0T X4,Y4:DRAV 0,y4 
1730 ’ >YD 

1740 ’== CHOIX DIVERS >YE 

1750 ’ >yf 

1760 LOCATE 1,17:PRINT"_ Voulez- >TF 

vous :* 

1770 PR I NT : PR I NT" Un autre calcul ? >LB 

N 

1780 PRINT" Voir F(x)= ai+b ?• >BH 
1790 PRINT" Voir F(i)= ai";CHR»(169 >NE 
);*+b ?• 





1800 PRINT" ïous exercer ?" 

1810 PBIHT" Teniner ?" 

1820 LOCATE 2.2S:PRINT"Votre choix 
11.2,3,4,5)" 

1830 A*=INKEYI:IF A»="1"THEN 1560 

1840 1F A»=*1"THEN 1600 

1850 1F A»="2*THEN 1370 

1860 1F AJ=*3"THEN 2190 

1870 IF A1="4*THEN 3040 

1880 IF AI=*5"THEN 2760 

1890 GOTO 1830 

1900 ' 

1910 ’== TRACE DU CADRE 
1920 ' 

1930 CLSrORIGIN 0,0 
1940 PLOT 200,200:DRAW 640,200 
1950 PLOT 635.205 : DRAW 640,200:DRAW 
635,195 

1960 PLOT 420,0:DRAW 420,400 
1970 PLOT 415,395:DRAU 420,400:DRAW 
425,395 

1980 FOR 1=220 TO 640 STEP 2O:H0VE 

1,197:DRAW 1,203:NEXT 

1990 FOR 1=20 TO 400 STEP 20:M0VE 4 

17,i:DRAW 423,i:NEXT 

2000 LOCATE 27,12 : PR I NT"-";CHRt(230 

);CHR»(230):LOCATE 78,12 : PR I NT"♦» ;C 

HRK230) ; CHR$ ( 230 ) 

2010 LOCATE 27,14 : PR INT"i•":LOCATE 
79,14 : PR I NT"*" 

2020 LOCATE 51.1 : PRIMT"y";CHfi»(9) ;C 
HR$(9> :CHR»(9) ; ;CHR*(230) ;CHR$(2 

30):LOCATE 51,25 : PR INT"y*";CHR$(9); 
CHRJ(9);"-";CHR$(230) ;CHR$(230) 

2030 PLOT 200,0:DRAW 200,400 
2040 PLOT 199,0:DRAW 199,400:RETURN 
2050 ’ 

2060 '== TRAÇAGE DE LA FONCTION 
2070 ’ 

2080 IF a=0 AND b=0 THEN RETURN 
2090 ORIGIN 420,200 
2100 FOR x=-10 TO 10 STEP 0.1 
2110 IF |=1 THEN y=(a«x)*b 
2120 IF |=2 THEN y=(at(x'2))*b 
2130 xl=x«20:yl=y»20 
2140 IF x=-10 THEN DRAW xl,yl,0,3 E 
LSE DRAW xl,yl,1 
2150 NEIT:RETURN 
2160 ’ 

2170 ’tt FONCTION f(x)=ax2 ♦ b 
2180 ' 

2190 1=2:G0SUB 55O:G0SUB 1930 
2200 ’ 


▲ 


>WD 

>vu 

>ZP 

>PE 

>PL 

>PP 

>PL 

>PX 

>NH 

>YC 

>YD 

>YE 

>NJ 

>WA 

>JH 

>VV 

>JN 

>2A 

>YU 

>VF 


>VR 

>JW 


>ÏZ 

>DW 


>YB 

>XG 

>HD 

>UJ 

>TB 

;XN 

>PR 

>RC 

>NW 

>YB 

>YC 

>YD 

>XZ 

>XG 


2210 ’== Affichage des variables >XH ) 

2220 ’ >XJ I 

2230 WIND0WI1.4,17,2,4:PAPERtl,1:CL >QF 
SU : PENH, 0 

2240 LOCATEil,2,2:PRINTtl,"F(x)= ax >WY 
";CHRl(169);"tb" 

2250 LOCATE 4,6:INPUT"_> a= ".a >ZR 
2260 LOCATE 4.6.-PRINT" " >YQ 

2270 LOCATE 4.6:INPUT"_> b= ",b >ZW 

2280 LOCATE 4,6:PRINT" " >YT 

2290 WIND0W»4,3,22,10,16:PAPERI4,1: >TN 
CLS»4:PENI4,0 

2300 IF b=0 THEN L0CATEI4,2,2:PRINT >DV 
«4,"y =";a;CHRJ(8);"i";CHRJ(169):G0 
TO 2330 

2310 IF b<0 THEN L0CATE»4.2,2:PRINT >WK 
14, "y = , ;a;CHR$(8);*x":CHR$(169) 
-";ABS(b):GOTO 2330 

2320 L0CATE#4,2,2:PRINTI4,"y =";a;C >JR 

HRJ(8);*i";CHRJ(169);* ♦•jb 

2330 1F a=0 THEN LOCATE 4,7:PRINT*F >KH 

(x)= constante":GOTO 2380 

2340 LOCATE 4,7:PRINT TVJ+TV1J+TV21 >DV 

2350 IF a>0 THEN LOCATE 6,8:PRINT"+ >QD 

";CHR$(9):CHR$(9);CHR»(9);CHR4(241) 

;" ’;CHR»(240);" +":GOTO 2370 

2360 IF a<0 THEN LOCATE 6.8:PR INT"- >AQ 
*;CHR$(9);CHR1(9);CHR1(9);CHR1(240) 


;* ";CHRJ(241);" -• 

2370 LOCATE 12,8:PRINT b >TB 
2380 GOSUB 2080 >XF 
2390 ’ >YG 
2400 '== CALCUL DES COORDONNEES >XJ 
2410 ’ >XK 


2420 IF a=0 AND b>=0 THEN LOCATE 6, >CQ 

13:PRINT" ":CHRI(127);" x => y =";b 

î:GOTO 2440 ELSE GOTO 2460 

2430 IF a=0 AND b<0 THEN LOCATE 6.1 >CL 

3:PRINT" ";CHR$(127);* x => y = ";b 

î : GOTO 2440 ELSE GOTO 2460 

2440 IF b<0 OR b>0 THEN LOCATE 4,15 >HY 

:PRINT"L'équation ax";CHR$(169);"tb 

=0":LOCATE 4,16:PRINT" est impossi 

ble! ":GOTO 2620 

2450 IF b=0 THEN LOCATE 4,15:PR INT" >CW 
L'équation ax";CHR*(169);"tb=0":LÛC 
ATE 4,16:PRINT"est indéterminée!": 

GOTO 2620 

2460 LOCATE 5,13:PRINT" Si x= >NG 
":LOCATE 8,15.-PRINT" y= " 

2470 LOCATE 5,13:INPUT" Si x= *,x3 >CC 
2480 IF x3>0 THEN LOCATE 5,t3:PRINT >RF 
* Si x= +";«3 


2490 IF x3<0 THEN LOCATE 5,13:PRINT >YC 
" Si x= -";ABS(x3) 

2500 y3=(a»(x3 A 2))+b >NX 

2510 IF y3>0 THEN LOCATE 8.15:PRINT >ZA 


" y= *";y3:GOTO 2570 

2520 IF y3<0 THEN LOCATE 8,15,-PRINT )FE 

" y= -"; ABS(y3): GOTO 2570 

2530 IF y3=0 THEN LOCATE 8,15:PRINT >JY 

" y= 0" 

2540 ’ >YD 

2550 Tracer des coordonnées >YE 
2560 ' >YF 

2570 x4=x3»20:y4=y3*20 >QF 

2580 ORIGIN 420,200:PLÛT x4,0,l:DRA >WH 

W x4,y4:DRAW 0.y4 

2590 ’ >yj 

2600 ’== CHOIX DIVERS >YA 

2610 ’ >YB 

2620 LOCATE 1.18:PRINT"_ Voulez- >TC 

vous :* 

2630 PRINT:PRINT* Un autre calcul ? >LX 

R 

2640 PRINT" Voir F(x)= ax*b ?" >BD 

2650 PRINT" Revoir f(x)= ax";CHRl(l >TF 

69);"*b ?" 

2660 PRINT" Terminer ?» >WH 

2670 LOCATE 2,25:PRINT"Votre choix >RG 

(1,2,3,4) 

2680 A$=INKEYI:IF A*="1"THEN 2460 >ZU 

2690 IF AJ="2"THEN 1370 >PP 

2700 IF AJ=’3"THEN 2190 >PH 

2710 IF A$='4"THEN 2760 >PN 

2720 GOTO 2680 >NE 

2730 ’ >ye 

2740 '== PROGRAHNE DE FIN >YF 

2750 ' >YG 

2760 HODE l >QA 


2770 WIND0U*2,9,32,6,13:PAPER#2,2:C >RA 
LSI2:PEN»2.3 

2780 WIND0W#3,5,36,16,21:PAPER#3,1: >TA 
CLSI3:PENi3,3 

2790 ' dessin des cadres >ZA 

2800 PEN 3:LOCATE 2,3:PRINT CHR$(15 >NE 
0): FOR 1=3 TO 38:L0CATE l,3:PRINT C 
HR*(154);:NEIT 

2810 LOCATE 39,3:PRINT CHR$(156):F0 >HC 
R 1=4 TO 22:LOCATE 39.1 .-PRINT CHR*< 
149);:NEXT 

2820 LOCATE 39,22:PRINT CHR*(153):F >UP 
OR 1=38 TO 3 STEP-1:LOCATE I.22.-PRI 
NT CHR9(154);:NEXT 

2830 LOCATE 2,22:PRINT CHR4(147):F0 >0T 
R 1=21 TO 4 STEP-1:LOCATE 2,I:PRINT 
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CHRSI149) ;:NEXT 

2840 PEU 1:F0R 1=8 TO 33:LOCATE 1,5 >BX 
: PR 1 NT CHRI1238) ::NEXT 
2850 FOR 1=5 TO 14:L0CATE 33,I:PR1H >«V 
T CHR41238); :NEXT 

2860 FOR 1=33 TO 8 STEP-1 :LOCATE I, >EN 

14:PR INT CHfit(238); :NEXT 

2870 FOR 1=14 TO 5 STEP-1:LOCATE 8, >DG 

I: PR INT CHRIl238)::NEXT 

2880 LÛCATEI2.5,2:PRINTI2,"ETES-VOU >LH 

S SUR" 

2890 L0CATEI2.2,3:PRINTI2,"D'AVOIR >XC 
TOUT COMPRIS ?' 

2900 L0CATE»2.3,7:PRINTI2,"REFLECHI >TQ 
SSEZ BIEN '* 

2910 FOR 1 = 1 TO 1000 : NEXT >TL 

2920 LÛCATEI3,1,2:PRINTI3,"Tapez >FC 
2930 L0CATE»3.2.3:P|INTI3."1_ pour >HB 
revoir F<«)= y=ax*b" 

2940 L0CATE#3.2,4 : PR I NT#3, "2_ pour >ZU 
revoir F(i)= y=ai";CHRt(169>;"+b" 

2950 L0CATEI3,2,5:PRINTI3,"3 Si vo >0C 
us avez vralient fini!" 

2960 Al=INKEYI:IF A»="1"THEN 1370 >ZU 
2970 IF A»=*2"THEN 2190 >PR 

2980 IF AI="3"THEN 3000 >PJ 

2990 GOTO 2960 >PE 

3000 CLSI2:CLSI3:L0CATEI2.7,4 : PR I NT >ED 
12,"AU REVOIR !":L0CATEI3,11,4 : PR 
INTI3,"A BIENTOT !":CALL ABB06:CAL 


L 0 

3010 ' >XG 
3020 ’== JOUONS AVEC Y=AX+B >XH 
3030 ' >IJ 
3040 RANDOHIZE(TI ME):GOSUB 1930 >AG 


3050 UINOOUtl.4,17,2,4:PAPER!1,1 : CL >QG 
Sll:PENtl,0 

3060 UIND0WB4,3,23.8,15 : PAPER 14,1 :C >RV 
LSI4:PENI4,0 

3070 LOCATEI1,2,2:PRINT#1,"F(i)= ai >HA 
♦b" 

3080 a=INT((RND(l))*5):b=INT((RND(l >HG 
))»5) 

3090 c=(RND(l)):IF c>0.5 THEN a=-a >AD 
3100 d=(RND(1)): IF d>0.5 THEN b=-b >ZH 
3110 IF a=0 AND b=0 THEN 3080 >UK 
3120 PEN 1:1F b<0 THEN LOCATE 4,6:P >ER 
RINT’y = *:a;CHR$(8);*x -*:ABS(b):G 
OTO 3180 

3130 IF b=0 THEN LOCATE 4,6:PRINT’y >JA 
= "jaiCHRXSlj'i'ïGOTO 3180 
3140 LOCATE 4,6:PRINT"y = ";a;CHR$( >PB 
8);*i ;b 


3150 ’ >YB 

3160 Croissante,Décroissante ? >YC 
3170 ' >YD 

3180 L0CATEI4,2,2:PRINT»4."Fli) est >HH 

• R 

3190 L0CATE»4,4,4:PRINTI4,"- croiss >0J 
ante ?" 

3200 L0CATEI4,4,5:PRINTI4,décrol >UH 
ssante ?" 

3210 L0CATE#4,4,6:PRINT#4,"- consta >NH 
nte ?" 

3220 L0CATEI4,2,8:PRINT#4,"Tapez C, >PF 
D ou 0." 


3230 a»=UPPER*(INKEY») >RX 

3240 IF a)0 AND a»=*C"THEN 3310 >WH 

3250 IF a>0 AND(a*=’D"OR a$=*0")THE >FD 
N 3320 

3260 IF a<0 AND(al="C"OR a»="0")THE >FD 
N 3340 

3270 IF a<0 AND a»="D"THEN 3360 >WV 

3280 IF a=0 AND a»="0"THEN 3370 >NB 

3290 IF a=0 AND(a$='D"OR a»="C’)THE >FJ 
N 3380 

3300 GOTO 3230 >NB 

3310 CLS84:L0CATEI4,2,2:PRINTI4, *F( >H« 
x) = croissante ":L0CATE»4,5,6:PRINT 
14." B I E N !":GOTO 3400 
3320 CLSI4:L0CATEI4,2,2:1F a$=’D*TH >BR 


EN PRINTI4,"F(«)= décroissante?"ELS 
E PRINTI4,’F(«) = constante ?" 

3330 L0CATE»4,4,4:PRINTI4," e r r e >HN 
u r !":L0CATE»4,2,6:PRINT#4,"a>0 = 
>*:L0CATEI4,5,7:PRINTI4,*F(x) crois 
santé":GOTO 3400 

3340 CLSI4:L0CATEI4,2,2:IF a*="C"TH >IV 
EN PRINTI4,*F(x) = croissante?"ELSE 
PRINTI4,"F(i) = constante?" 

3350 L0CATEI4,4,4:PRINTI4," e r r e >TA 
u r !":L0CATEI4,2,6:PR(NTt4,*a<0 = 
>":L0CATEI4,4,7:PRlNTI4,"F(x) décro 
issanteVGOTO 3400 

3360 CLSI4:L0CATEI4,2,2:PRINT»4,"F( >QK 
x)= décroissante":L0CATEI4.4,6:PRlN 
TI4, * BIEN ! • : GOTO 3400 
3370 CLS»4:L0CATE»4,3,2:PRINTt4,"F( >KB 
x) = constante*:LÛCATEI4,5,6 : PR 1 NTI 
4," B I E N !": GOTO 3400 
3380 CLSI4:L0CATE*4,2,2:IF a*="C"TH >BH 
EN PRINTI4,"F(x> = croissante?"ELSE 
PRINTI4,"F(x)=décrolssante?" 

3390 L0CATEI4,4,4 : PRINT#4," e r r e >KP 
u r !":L0CATEI4,2,6:PRINT»4,"a=0 = 
>":L0CATEI4,6,7:PRINT»4,"F(x) const 
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ante":GOTO 3400 

3400 GOSUB 1320 >UF 

3410 ’ >YA 

3420 Calcul et trace des coordo >YB 
nnees 

3430 ’ >YC 

3440 CLS»4:L0CATE»4,2,2:PRINT»4,"Ca >DH 
Iculons un peu !" 

3450 FOR 1=1 TO 3 >CC 

3460 LOCATE 5,11:PRINT"sl x = >ER 

II 

3470 LOCATE 5,13:PRINT" y = >CU 

R 

3480 LOCATE 12,11:INPUT"",xl >«R 

3490 IF xl>0 THEN LOCATE 5,U:PRINT >DK 
"si i = ♦*; si:GOTO 3510 
3500 IF x1<0 THEN LOCATE 5,11:PRINT >YY 
"si « = - " : A B S(x 1 ) 

3510 LOCATE 12,13: INPUT"\,yl )«N 


3520 IF yl>0 THEN LOCATE 5,13:PRINT >CB 

• y = ■*";yi:GOTO 3540 

3530 IF yl<0 THEN LOCATE 5.13:PR INT >«E 

* y = -";ABS(yl) 


3540 xl=xl»20:yl=yl»20 >QT 

3550 ORIGIN 420,200:PLOT xl,0.1:DRA >JD 
U 1 1,y 1 : PLOT XI,Y1:DKAW O.yl 
3560 CALL ABB06:NEXT >PH 

3570 GOSUB 2080 >IH 

3580 ’ >TJ 

3590 ’== FELICITATIONS >YK 

3600 ’ >YB 

3610 CLSI4:L0CATEI4,2,2:PRINTI4,*B >VH 


R A V 0 !*:L0CATEi4,4,4:PRINTI4,’po 
ur ce":L0CATEI4,6.6 : PR 1NT#4,'résuit 
at..!" 

3620 ' >YD 
3630 ’== CHOIX DIVERS >TE 
3640 ’ >TF 
3650 LOCATE 1,17: PR INT" Voulez- >TF 
vous :* 

3660 PR I NT : PR I NT : PR I MT" Voir F(x)= >0J 
ax+b ?" 

3670 PRINT" Voir F(i)= ai";CHR»(169 >VN 


);"+b PRINT" 

3680 PRINT" Vous exercer ?" >AT 

3690 PRINT" Terainer ?• >WH 

3700 LOCATE 2,25:PRINT"Votre choix >TD 

( 1 , 2 , 3 , 4 )" 

3710 AI=INKEY):IF A»=*1"THEN 1370 >ZH 

3720 IF A4="2"THEN 2190 >PK 

3730 IF A4="3*THEN 3040 >PG 

3740 IF A*="4*THEN 2760 >PT 

3750 GOTO 3710 >!«)□ 
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